посчитайте задачу pascal. net. дано N чисел есть ли среди них нечётные если есть выведите значение true иначе вывести значение false. ASeries27. дам 60 Поинтов.

Код:

program Hell0;

const N = 10; // Количество чисел

var

a: array [1. . N] of integer;

i: integer;

x: integer;

answer: boolean;

begin

for i:=1 to N do

begin

read(a[i]);

end;

for i:= 1 to N do

begin

if a[i] mod 2 <> 0 then

answer := true;

end;

write(answer);

end.