Код:
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
read(a[i]);
end;
for i:= 1 to N do
if a[i] mod 2 <> 0 then
answer := true;
write(answer);
end.
Код:
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.