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

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) 95,37+16,8=112,17 (т) собрали со второго участка

2) 112,17+95,37=207,54 (т) собрали с двух участков

ответ: 207,54 т

1. переведем время отплытия и время прибытия катера в минуты и вычтем друг из друга

9*60мин+18мин=558 мин - время отплытия катера от пристани,

14*60мин+14мин=854мин - время прибытия катера в пункт назначения,

854-558=296 мин,

получившееся время нужно поделить столбиком на 60 мин,

получается 4 целых и 56 в остатке,

это значит, что катер был в пути 4 часа 56 минут.

 

2. в этой нам нужно перевести все время в секунды

5*60*60+29*60+42=18000+1740+42=19782 - время запуска спутника в секундах,

2*60*60+34*60+53=7200+2040+53=9293 - время полета спутника,

теперь прибавим время запуска ко времени полета

19782+9293=29075

теперь это время делим столбиком на 3600

получаем 8 целых 275 в остатке,

275 делим столбиком на 60 - получаем 4 целых 35 в остатке,

это значит, что спутник вышел на орбиту в 8 часов 4 минуты 35 секунд.

ответ: катер был в пути  4 часа 56 минут, спутник вышел на орбиту 8 часов 4 минуты 35 секунд.