Ответы на вопрос:
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.
Популярно: Информатика
-
alena0212200518.05.2022 10:21
-
loooolg10.03.2022 02:38
-
artemsuraaye26.01.2021 11:51
-
zenix12215.01.2022 14:55
-
sonyakaka33216.04.2023 00:52
-
dashahomjak127.11.2021 19:07
-
www15203.04.2022 23:27
-
irna20011.10.2022 23:18
-
Pelyovin198010.10.2022 10:49
-
SuperArtem5229.11.2020 18:25