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

Question

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

Comments

Нужно ввести 10 элементов массива с цифрами. Выводится должны только нечетные массивы

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.