Question

Pascal ABC. Написать программу, которая находит сумму четных элементов массива произвольного размера (размер и элементы массива вводятся с клавиатуры).

Answer 1

Var
  a:array of integer;
  i,b,c:integer;

BEGIN
  write('Введите размер массива - ');
  readln(b);
  setlength(a,b);
  writeln('Введите элементы массива - ');
  for i:=0 to b-1 do begin
    readln(a[i]);
    if a[i] mod 2 = 0 then c:=c+a[i];
  end;
  writeln('Сумма четных элементов массива  - ',c);
END.