Составьте программу вычисления суммы четных элементов одномерного массива. Решить в паскале

Question

Информатика

Нимфа

8 августа, 16:47

Составьте программу вычисления суммы четных элементов одномерного массива. Решить в паскале

+5

Ответы (1)

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

Леонила · Answer 1

Const n=4;

Var a:array [1 ... n] of integer;

s, t:integer;

begin

randomize;

for t:=1 to n do

begin

a[t] : = random (100) ;

write (a[t]:6) ;

end;

writeln;

s:=0;

for t:=1 to n do

if a[t] mod 2=0

then

s:=s+a[t];

writeln ('summa=', s) ;

end.