Question

Паскаль АБС.
1)Дано целое число N>0. С клавиатуры вводится N любых чисел , найти сумму только четных из этих чисел.Вывести полученное значение на экран.

Answer 1

var

a : array [1..100] of integer;

i, n, s : integer;

begin

s:=0;

writeln('Введите число n');

read(n);

for i:=1 to n do

 begin

   writeln('Введите число: ');

   read(a[i]);

 end;

writeln;

writeln('Последовательность:');

for i:=1 to n do

 write(a[i],' ');

writeln;  

for i:=1 to n do  

 if (a[i] mod 2 = 0) then

   s:=s+a[i];

writeln('Сумма четных: ',s);

end.