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

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.    

клавиши переключения регистров caps lock, shift, ctrl, alt.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5