Question

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

Answer 1

Ответ:

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

i, c:integer;

Begin

writeln('Введите очки команд: ');

For i:=1 to 20 do readln(a[i]);

for i:=2 to 20 do begin

if (a[i] < a[i-1]) then begin

c:=a[i];

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

a[i-1]:=c;

End;

end;

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

End.

Answer 2

Ответ:

var a:array[1..20] of integer; i, c:integer;Begin writeln('Введите очки команд: '); For i:=1 to 20 do readln(a[i]); for i:=2 to 20 do begin if (a[i] < a[i-1]) then begin c:=a[i]; a[i]:=a[i-1]; a[i-1]:=c; End; end;for i:=1 to 5 do write(a[i], ' ');End.

Объяснение:

.