V. Практическая работа 20). На соревнованиях по прыжкам в длину получен массив b(20). Определите три лучших результата. Массив сформируйте случайным образом.​

1. var a:array[1..30] of byte;

i,j,t:integer;

begin

Randomize;

for i:=1 to 30 do a[i]:=100+Random(155);

for i:=1 to 29 do

for j:=1 to (30-i) do

if a[j]>a[j+1] then begin

t:=a[j];

a[j]:=a[j+1];

a[j+1]:=t;

end;

Write(a[28],' ',a[29],' ',a[30]);

end.

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

Объяснение: