Задано список. Написати програму формування іншого списку, в якому,
якщо еленти заданого списку не утворюють послідовності, яка зменшується,
то замінити його від‘ємні елементи одиницями.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

 

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

 

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

 

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)