Дан массив, заполненный значениями скоростей разных марок автомобилей. Определить 2 самых быстрых автомобиля 2 самых медленных

Дан массив, заполненный значениями скоростей разных марок автомобилей. Определить 2 самых быстрых автомобиля (2 самых медленных).

  • Program Pr1;
    uses crt;
    const n=100;
    var mas:array[1..n] of integer;
    var g,i,h:integer;
    Begin
    clrscr;
    for i:=1 to n do begin
    writeln('введите скорость ',i,' -ого автомобиля');
    readln(mas[i]);
    end;
    for g:=1 to n-1 do
    for i:=1 to n-g do if mas[i]<mas[i+1] then begin
    h:=mas[i];
    mas[i]:=mas[i+1];
    mas[i+1]:=h;
    end;
    for i:=1 to 2 do writeln(mas[i]); {максимальные скорости}
    for i:=n-1 to n do writeln(mas[i]); {минимальные скорости}
    end.


See also: