Question

Ввод 10 элементов масссива, вывод только нечетные.Язык - pascal abc

Answer 1

Var a: array [1..10] of integer; 
   i:integer;
begin 
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.