Регистрация
Stellright
23.02.2022 16:01
Информатика
Есть ответ 👍

ЗАДАНИЕ НА ФОТО! НЕ СПАМИТЬ НЕ ПИСАТЬ НЕ МОГУ НЕ ЗНАЮ, ВСЁ РОВНО ВАС ЗА ЭТО ЗАБАНЯТ НУЖНО

134
395
Посмотреть ответы 1

Ответы на вопрос:

GorkiyShokolaD
GorkiyShokolaD
4,6(7 оценок)
Uses crt; const n=5; var a: array[1..n] of integer; i,p: integer; begin for i: =1 to n do read(a[i]); repeat p: =0; for i: =1 to n-1 do if a[i]< a[i+1] then begin p: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until p=0; for i: =1 to n do writeln(a[i]); end.

Популярно: Информатика