Ответ:

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, сортируются по неубыванию и выводятся три последних элемента.

Объяснение:

Ответ:

Python

Объяснение:

from random import randint

n=20

a=[0]*n

for i in range (0, n):

 a[i]=randint(1,100)

print(a)

a=sorted(a)

print('Лучшие результаты ', a[17], a[18], a[19])