Задан массив В(N).Переписать в начало массива положительные элементы, сохраняя порядок следования.Отпечатать преобразованный массив В.

1

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

2013-11-17T17:05:33+04:00
Program zadacha;
uses crt;
var b:array[1..100] of real;
   i,n:integer;
begin
readln(n);
for i:=1 to n do
read(b[i]);
for i:=1 to n do
if b[i]>0 then writeln(b[i]);
for i:=1 to n do
if b[i]<0 then writeln(b[i]);
end.
{В задаче ничего не сказано за 0}