Question

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

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.