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

Question

Информатика

Агапа

3 марта, 21:26

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

+1

Ответы (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.