Question

На заданном пользователем отрезке найти сумму чётных чисел.

Answer 1

Var
a:array [1..1000] of integer;
i,n,sum:integer;
begin
randomize;
write('Введите максимальное число массива:');
Readln(n);
begin
for i:=1 to n do
a[i]:=random (20)+20;
end;
Writeln('Массив состоит из следующих чисел:');
for i:=1 to n do
write(' ',a[i]);
Writeln();
sum:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then sum:=a[i]+sum;

writeln('Сумма всех чётных чисел равна : ',sum);
end.