Дан массив. Найти все его нечетные элементы. И записать в массив B.

1

Ответы и объяснения

Лучший Ответ!
2013-12-22T21:21:52+04:00
Const n=10;  //введёте своё количество членов массива
var  b: array [1..n] of real;
       i: integer;
begin 
   writeln('Введи массив'); 
   for i := 1 to n do read(b[i]); 
   i:=1; 
 while i <= n do
    begin 
      write(b[i],'  ');  // Если не поставить это ,'  '); тогда будет выводить все числа слитно
       i := i + 2;
      end;
end.