Помогите с программой в Паскале, пожалуйста!
Известно, сколько очков заработала каждая из 20 команд в отборочном туре игры КВН. В финал выходят только 5 команд. Выведите на экран очки команд, вышедших в финал.
Ответы
Ответ дал:
0
Ответ:
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.
Ответ дал:
0
// PascalABC.NET
begin
ReadSeqInteger(20).OrderDescending.Take(5).Print
end.
Объяснение:
Вводим 20 чисел, затем они сортируются по убыванию, берутся 5 первых и выводятся. Собственно, все.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад