+60
1 год назад
Информатика
5 - 9 классы
Код:
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.