найти сумму элементов массива H (11), стоящих на четных местах и их количество

Question

Владимир Васильев

Информатика

2 сентября, 22:02

найти сумму элементов массива H (11), стоящих на четных местах и их количество

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Kortes · Answer 1

var a:array[1 ... 10] of byte;

s, i:byte;

begin

s:=0;

for i:=1 to 10 do

begin

a[i]:=random (10);

write (a[i],' ');

read;

end;

writeln;

for i:=1 to 10 do begin

if i mod 2=0 then begin s:=s+a[i];

end;

end;

writeln ('summa = ', s);

readln;

end.