Дан массив. вывести на экран сначала его неотрицательные элементы, затем отрицательные.

Var m: array[1..100] of integer;               i,n: integer; begin  write('введите размерность массива: '); readln(n); writeln('введите массив: ')for i: =1 to n doreadln(m[i]); writeln('массив: '); for i: =1 to n doif m[i]> 0 then write(m[i],' '); for i: =1 to n doif m[i]< 0 then write(m[i],' '); end.

Var m: array[1..100] of integer ;               i,n: integer ; begin  write('введите размерность массива: '); readln(n) ; writeln('введите массив: ' )for i: =1 to n doreadln(m[i]) ; writeln('массив: ') ; for i: =1 to n doif m[i]> 0 then write(m[i],' ') ; for i: =1 to n doif m[i]< 0 then write(m[i],' ') ; end .             

1) 480-312=168 (км.) проехал второй автобус

2)312/52=6 (ч.) был в пути первый автобус

3) 168/42=4 (ч.)  был в пути  второй автобус

4) 6-4=2 (ч.)  первый автобус вышел раньше второго

ответ: на 2 часа   первый автобус вышел раньше второго