Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный....

Question

Массив А вводится с клавиатуры. Вывести только нечетные
элементы. Размер произвольный. решить нужно в паскаль

Answer 1

Program asdfasd;
Var
a:array[1..10] of Integer;
b:array[1..10] of Integer;
i:integer;
Begin
I:=0;
While i <> 10 Do
Begin
i:=i+1;
Read(a[i]);
if (a[i] mod 2) <> 0 Then
b[i]:=a[i]
End;
Writeln(b)
End.

Comments

Вывод будет выглядеть примерно так: [0,453,4573,7853,0,0,275,5463,2075,753]

---

(Взяты рандомные числа