Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var
a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
writeln ('=====================================');
for i:=1 to 10 do
if (odd(i)=false) and (odd(a[i])=false) then write (a[i],' ');
readln;
end.