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

1

Ответы и объяснения

2012-11-19T13:43:00+04:00

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.