Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Uses   crt; 
var  a:array[1..5] of integer;
  n:integer;
  i:byte;
begin
for i:=1 to 5 do begin
read(a[i]);
writeln;
end;
for i:=1 to 5 do begin
if a[i] mod 2 <> 0 then
writeln(a[i]);
end;
end.