Почему в ответе получается 26? var s,i: integer; mas: array[1..10] of integer; begin mas[1]: =14; mas[2]: =10; mas[3]: =-8; mas[4]: =6 ; mas[5]: =12; mas[6]: =4 ; mas[7]: =-16 ; mas[8]: =-7 ; mas[9]: =5; mas[10]: =3; s: =0; for i: =1 to 5 do mas[2*i]: =0; for i: =1 to 10 do if mas[i]> 5 then s: =s+mas[i]; write(s); end.

пошагово:

 

1) строки

        mas[1]: =14;         . .

        mas[10]: =3;

значения элементов массива.

массив имеет вид:

14  10  -8  6  12  4  -16  -7  5  3

 

2) переменная s: =0;

 

3) цикл

for i: =1 to 5 domas[2*i]: =0;

все элементы, стоящие на чётных местах, обнуляются.

массив имеет вид:

14  0  -8  0  12  0  -16  0  5  0

 

4) цикл

for i: =1 to 10 doif mas[i]> 5 then s: =s+mas[i];

просматриваем массив, и если элемент больше 5, добавляем его в сумму s:

добавится сначала 1-й элемент (так как 14> 5), сумма станет 0+14=14

а потом 5-й (12> 5), сумма станет 14+12 = 26

 

5)write(s);

напечатает 26, то есть значание s

 

всё!

сначала заданы элементы, потом все элементы с четным индексом обнуляются (через один). потом мы считаем сумму элементов больших 5 в получившемся массиве.

это 14 и 12.

 

14+12=26

 

тебе на экран и выводит 26.

Было: const   n = 10;   var   i, s: integer;     m: array [1..n] of integer;   begin   randomize;     s : = 0;   for i : = 1 to n do   begin     m[i] : = random(201) - 100;     writeln(m[i]);   end;   for i : = 1 to n do     if m[i] mod 2 = 0 then       s : = s + m[i];   writeln('summa = ', s);   readln; end.   стало: цел i, s, n n : = 10 цел таб m[1: n]   алг нач   s : = 0   нц для i от 1 до n     m[i] : = irand(-100, 100)     вывод m[i], нс   кц    нц для i от 1 до n     если mod(m[i], 2) = 0 то       s : = s + m[i]     все   кц   вывод "summa = ", s кон