Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.