№1. в программе описан одномерный целочисленный массив a с индексами от 0 до 10. ниже представлен фрагмент этой программы, в котором значения элементов массива сначала , а затем меняются. for i: =0 to 10 do a[i]: =10-i; for i: =0 to 5 do begin a[10-i]: =a[5-i]; a[5+i]: =a[i]; end; чему будут равны элементы этого массива? 1)9 8 7 6 5 10 9 8 7 6 10 2)10 9 8 7 6 5 6 7 8 9 10 3)10 9 8 7 6 10 9 8 7 6 10 4)5 6 7 8 9 10 9 8 7 6 5 №2. в программе описан одномерный целочисленный массив с индексами от 0 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив: s: =0; n: =10; for i: =1 to n do begin s: =s+a[i] - a[i-1]; end; в начале этого фрагмента в массиве находились числа о, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т.е. a[0]=0, a[1]=2 и т.д. чему будет равно значение переменной s после выполнения данной программы?

For - это цикл со счетчиком
"i := 0 to 10" - это начальное и конечное значения (ноль и десять)
т.е. начинаем с нуля, что-то делаем, и берем следующее число - "1"
потом снова что-то делаем, берем следующее - "2"
в "i" - записывается то число, с которым работаем в данный момент
и так, пока не дойдем до "10"

а вот что именно делать - написано между словами "begin" и "end"или сразу после "do" (если строка одна)

1) Можно представить несколько клеток с номерами (A0...A10) и числами в них
а в квадратных скобках "[i]" - номер клетки
Берем ноль, A[0] - "ячейку с номером 0" и записываем туда число 10
A[i] := 10 - i;
A[0] = 10 - 0 (в А0 записать 10)
далее в A[1] записываем "9" (10 - 1)
в A[2] записываем "8" (10 - 2)
и так до десяти включительно

2)далее цикл от 0 до 5
A[10-0] = A[5-0] (из десятой клетки записываем число в пятую)
A[5+0] = A[0]

A[10-1] = A[5-1] (из 9ой в 4)
A[5+1] = A[1] (из 6ой в 1)

A[10-2] = A[5-2] (8 -> 3)
A[5+2] = A[2] (7 -> 2)
и т.д. и т.п.

3)как-то так должно работать (следующий столбец - следующее число)

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=MatrixRandom(3,2,-99,99);
  Writeln('Массив А');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(a[i,j]:4);
    Writeln
    end;
  var b:=MatrixRandom(3,2,-99,99);
  Writeln('Массив B');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(b[i,j]:4);
    Writeln
    end;
  var c:array[0..2,0..1] of real;
  Writeln('Результирующий массив');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do begin
      c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
      end;
    Writeln
    end
end.

Тестовое решение
Массив А
 -91 -93
 -62   9
 -97   6
Массив B
 -64  18
  57 -34
 -65 -30
Результирующий массив
  582.4 -167.4
 -353.4  -30.6
  630.5  -18.0