Определить порядковый номер автомобиля, имевшего максимальную из средних скоростей движения на участках.

const n=25;
var s,t:array[1..n]of integer;
vsr:array[1..n]of real;
i,k:integer;
max:real;
begin
 write('Длины участков пути(км): ');
 for i:=1 to 25 do
                begin
                s[i]:=random(1000);
                write(s[i],' ');
                end;
 writeln;
 write('Время, затраченное на преодаление пути(ч): ');
 for i:=1 to 25 do
                begin
                t[i]:=random (100)+1;
                write(t[i],' ');
                end;
 writeln;
 write('Средние скорости автомобилей: ');
 for i:=1 to 25 do
                begin
                vsr[i]:=s[i]/t[i];
                write(vsr[i],' ');
                end;
 max:=vsr[1];
 k:=1;
 for i:=1 to 25 do
 if vsr[i]>max then
               begin
               max:=vsr[i];
               k:=i;
               end;
 writeln;
 write('Порядковый номер машины, имеющую максимальную среднюю скорость: ',k);
 writeln;
end.

uses crt;
var
i,imax: integer;
r,t,v,vmax: real;
begin
vmax:=0;
for i:=1 to 5 do
 begin
 write('Введите длину участка пути для ',i,' автомобиля: ');
 readln(r);
 write('Введите время для ',i,' автомобиля: ');
 readln(t);
 v:=r/t;
 if v>vmax then
    begin
    vmax:=v;
    imax:=i;
    end;
 end;
 writeln('Максимальная средняя скорость ',vmax,' у автомобиля под номером ',imax);
 end.