Дан массив. рассортировать элементы массива по убыванию. program sortirovka; var n, k, z, x : integer; a : array[1..50] of integer; begin write('введи размер массива: '); readln(n); for k: =1 to n do a[k]: =random(10)-7; writeln('исходный массив: '); for k: =1 to n do write(a[k],' '); for z: =1 to n-1 do for k: =1 to n-z do if a[k] then begin x: =a[k]; a[k]: =a[k+1]; a[k+1]: =x end; writeln; writeln('рассортированный массив: '); for k: =1 to n do write(a[k],' '); end.
200
491
Ответы на вопрос:
program sortirovka;
var n, k, z, x : integer;
a : array[1..50] of integer;
begin
write('введи размер массива: '); readln(n);
for k: =1 to n do a[k]: =random(10)-7;
writeln('исходный массив: ');
for k: =1 to n do write(a[k],' ');
for z: =1 to n-1 do
for k: =z+1 to n do
if a[k]> a[z] then begin
x: =a[k];
a[k]: =a[z];
a[z]: =x
end;
writeln;
writeln('рассортированный массив: ');
for k: =1 to n do write(a[k],' ');
end.
Популярно: Информатика
-
erkenova090912.06.2020 04:27
-
Katya114304.08.2021 07:36
-
olliu5605.09.2021 07:47
-
smellofcherry31.05.2022 03:19
-
AngelChan200410.07.2020 10:03
-
AlexBennet05.05.2020 19:42
-
lenamolchanova103.04.2022 02:39
-
Коля12Коля27.08.2022 18:41
-
iruna418.11.2022 19:30
-
123288829.11.2022 12:22