Question

Помогите с программой в Паскале, пожалуйста!


Известно, сколько очков заработала каждая из 20 команд в отборочном туре игры КВН. В финал выходят только 5 команд. Выведите на экран очки команд, вышедших в финал.

Answer 1

Ответ:

var a:array[1..20] of integer;

i, j, c: integer;

begin

for i:=1 to 20 do begin

write('Введите сколько очков у данной команды: ');

readln(j);

end;

for i:=2 to 20 do

if a[i] > a[i-1] then begin

c:= a[i];

a[i]:= a[i-1];

a[i-1]:= c;

end;

write('Лучшие 5 команд имеют столько очков: ');

for i:=1 to 5 do write(a[i], ' ');

end.

Answer 2

// PascalABC.NET

begin

 ReadSeqInteger(20).OrderDescending.Take(5).Print

end.

Объяснение:

Вводим 20 чисел, затем они сортируются по убыванию, берутся 5 первых и выводятся. Собственно, все.