Для
целочисленного массива A[1..5] выяснить, является ли сумма его элементов четным
числом. Вывести "ДА" или "НЕТ".

1

Ответы и объяснения

2013-12-18T21:43:07+04:00
Var  a,k:integer;
begin
b:=0;
for k:=1 to 5 do begin
read(a); b:=a+b; end;
if (b mod 2=0) then write ('Da') else write ('Net');
end.