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

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) наливаем. 7 л и переливаем в 5 л. остаётся 2 л. 2) выливаем 5 л, переливаем 2 л в 5 литр., набираем 7 л. и пререливаем в 5ти литр. остаётся в 7ми литр. 4 литра. 3) выливаем 5 литров и переливаем 4 литра в 5ти литр. 4) набираем 7 литров и доливаем 1 литр в 5ти литр. в 7ми литр. остаётся 6 литров.

180*5=900 м первая лодка пройдет

230*5=1150м вторая пройдет

 

900+1150=2050 м

 

2500-2050=450 метров будет между ними