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

Использовать функцию trunc

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.