Ответы на вопрос:
var k,i,j: integer;
a: array[1..5]of integer;
begin
for i: =1 to 5 do begin
for j: =1 to 4 do begin
if a[j]> a[j+1] then begin
k: =a[j+1];
a[j+1]: =a[j];
a[j]: =k;
end;
end;
end;
end.
Популярно: Информатика
-
ruslan200318529.10.2022 15:46
-
islamkazirbaev29.12.2022 00:10
-
оскар444405.07.2021 12:40
-
123456789124121.03.2020 02:18
-
правда1416.05.2020 22:13
-
маршмален19.05.2023 15:29
-
store148814.11.2021 22:13
-
5862478948501.09.2021 22:45
-
djonni7409.06.2023 02:05
-
Savcik27.08.2020 17:34