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

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

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

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.