Question

из последовательности целых чисел от 0 до 200 выбрать и просуммировать отдельно четные и нечетные.
Использовать функцию trunc

Answer 1

const
  maxn = 200;

type
  myarr = array [1..maxn] of longint;

var
  a: myarr;
  sumch, sumnch: int64;

begin
  sumch := 0;
  sumnch := 0;
  for i := 1 to 200 do begin
    read(a[i]);
    if (a[i] mod 2 = 0) then
      sumch := sumch + a[i]
    else
      sumnch := sumnch + a[i];
  end;
  writeln('Сумма четных элементов = ', sumch);
  writeln('Сумма нечетных элементов = ', sumnch);
end.