На участке длинной s1 автобус двигался со скоростью v1 на участке длинной s2-со скоростью v2 найти среднюю скорость движения автобуса на всем участке s=s1+s2 !

t1 = s1/v1

t2 = s2/v2

 

v(sr) = (s1+s2)/(t1+t2)

 

Const   m = 5; n = 10; a = 20; b = 80; // массив имеет размер mxn, интервал задан границами [a; b] var   i, j, max, outint, t, nt, ni: integer;   mas: array[1..m, 1..n] of integer; begin   randomize;   for i : = 1 to m do       for j : = 1 to n do           mas[i, j] : = random(100);   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do           write(mas[i, j], ' ');       writeln;   end;   mas[i, j] : = random(100);   for i : = 1 to m do   begin       max : = -1; // все элементы полагаются неотрицательными       ni: =0;       for j : = 1 to n do       begin           t : = mas[i, j];           if t > max then begin               max : = t; nt : = j           end;           if ni = 0 then               if (t < = a) or (t > = b) then ni : = j       end;       if ni > 0 then begin           t : = mas[i, nt]; mas[i, nt] : = mas[i, ni]; mas[i, ni] : = t       end   end;   writeln('результирующий массив');   for i : = 1 to m do   begin       for j : = 1 to n do           write(mas[i, j], ' ');       writeln;   end end. пример выполнения программы в pascalabc.net исходный массив 34 56 89 27 71 0 64 89 80 36 15 59 95 54 37 15 81 64 48 39 89 42 71 55 97 80 48 65 98 55 85 27 45 39 37 74 98 7 7 31 28 56 14 3 45 39 98 19 93 4 результирующий массив 34 56 89 27 71 0 64 89 80 36 95 59 15 54 37 15 81 64 48 39 98 42 71 55 97 80 48 65 89 55 98 27 45 39 37 74 85 7 7 31 28 56 98 3 45 39 14 19 93 55

Var   a, b, c, min, max, mid: integer;   f1, f2: text; begin   assign(f1, 'date.in');   reset(f1);   read(f1, a, b, c);   close(f1);   if a > b then begin       max : = a; min : = b   end   else begin       max : = b; min : = a   end;   if max > c then begin       if min < c then mid : = c       else begin           mid : = min; min : = c       end   end   else begin       mid : = max; max : = c   end;   writeln('меньшее=', min, ' среднее=', mid, ' большее=', max);   assign(f2, 'date.out');   rewrite(f2);   write(f2, min, ' ', mid, ' ', max);   close(f2) end.