Задан массив В (N). Переписать в начало массива положительные…

Program zadacha; uses crt; var b: array[1… 100] of real; i,n: integer; beginreadln (n); for i: =1 to n doread (b[i]); for i: =1 to n doif b[i]>0 then writeln (b[i]); for i: =1 to n doif b[i]<0 then writeln (b[i]); end.{В задаче ничего не сказано за 0}