Массив А[1 ... 20] заполнен случайными числами [0; 10]. Найти сумму элементов с четными номерами

Question

Информатика

Лидия

7 ноября, 03:17

Массив А[1 ... 20] заполнен случайными числами [0; 10]. Найти сумму элементов с четными номерами

+5

Ответы (1)

Знаете ответ?

Игорь · Answer 1

program pr1;

var

m:array[1 ... 100] of integer;

i, sum:integer;

begin

randomize;

for i:=1 to 20 do

m[i]:=random (10) ;

for i:=1 to 20 do

begin

write (m[i],' ') ;

if i mod 2 = 0 then sum:=sum+m[i];

end;

writeln ('') ;

writeln (sum) ;

readln;

end.