Ответы на вопрос:
USES Crt;
CONST N=30;
VAR
A:ARRAY[0..N] OF INTEGER;
I,J: BYTE; PP:INTEGER;
BEGIN
ClrScr; Randomize;
WriteLn(' Значения элементов массива ');
FOR I:=1 TO N DO Begin
A[I]:=Random(50); Write(A[I]:4);
End; WriteLn;
{ Сортировка массива }
FOR I:=2 TO N DO
FOR J:=N DOWNTO I DO
IF A[J-1]>A[J] THEN Begin PP:=A[J]; A[J]:=A[J-1]; A[J-1]:=PP; End;
WriteLn(' Отсортированный массив ');
FOR I:=1 TO N DO
Write(A[I]:4);
END.
CONST N=30;
VAR
A:ARRAY[0..N] OF INTEGER;
I,J: BYTE; PP:INTEGER;
BEGIN
ClrScr; Randomize;
WriteLn(' Значения элементов массива ');
FOR I:=1 TO N DO Begin
A[I]:=Random(50); Write(A[I]:4);
End; WriteLn;
{ Сортировка массива }
FOR I:=2 TO N DO
FOR J:=N DOWNTO I DO
IF A[J-1]>A[J] THEN Begin PP:=A[J]; A[J]:=A[J-1]; A[J-1]:=PP; End;
WriteLn(' Отсортированный массив ');
FOR I:=1 TO N DO
Write(A[I]:4);
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
lluukkaa15.01.2021 05:05
-
ЭмилиСтоун1108.07.2022 16:17
-
юлия3088503.07.2020 14:54
-
dimaloginkinozgu9208.08.2021 10:13
-
hyyeblan557720.09.2021 07:24
-
nastya3007106.07.2021 04:24
-
Ramil242506.11.2020 17:27
-
danikmy1201.06.2023 06:01
-
alya5511Аля16.04.2023 10:27
-
tanaletinaaaaa04.05.2020 03:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.