Question

Задать массив из 7-ми элементов и на экран вывести только нечетные элементы массива. язык pascal

Answer 1

Код:

program Hello;

var

 a: array [1..7] of integer;

 i: integer;

begin

 writeln('Введите элементы массива:');

 for i:=1 to 7 do

   read(a[i]);

 write('Вывод элементов массива: ');

 for i:=1 to 7 do

 begin

   if a[i] mod 2 <> 0 then

   write(a[i],' ');

 end;

end.