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