НЕ ЗАБУДЬТЕ РАССКРЫТЬ КАРТИНКУ,начертите фигуру используя алгоритм с циклом
298
383
Ответы на вопрос:
Var n,i,j,c: integer; a: array[1..201] of integer; begin writeln('введите колөво элементов массива'); readln(n); for i: =1 to n do a[i]: =-100+random(201); writeln('исходный массив'); for i: =1 to n do write(a[i]: 5); writeln; for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin c: =a[j]; a[j]: =a[i]; a[i]: =c; end; writeln('отсортированный массив'); for i: =1 to n do write(a[i]: 5); writeln; end.
Популярно: Информатика
-
Помогитемне1111111908.07.2021 12:34
-
Sasha28040520.10.2021 14:57
-
aluanakim19.04.2023 00:45
-
marinamax200411.12.2022 04:55
-
alikachara21.02.2023 01:25
-
F1kser20.06.2020 09:54
-
Ddddd4676313.10.2021 23:20
-
Mastermastack31.10.2022 18:50
-
MilaniaDelli19.04.2023 06:33
-
Marina1297126.03.2021 14:11