Дан массив. рассортировать элементы массива по убыванию. 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.
maksot2006ox6gx2
2
02.10.2019 18:30
2
Другие вопросы по теме Информатика
Лтшпамльз
15.09.2019 16:27
Rashid200413
15.09.2019 16:28
aamelkumova933
07.12.2020 12:23
Милая8
28.09.2019 06:50
Redll
25.07.2019 01:40
NikolayTop
19.07.2019 07:30
elllis
19.07.2019 07:30
дура55555
19.07.2019 07:30
Yuliya0264
19.07.2019 07:30
Популярные вопросы
- Один из углов ромба равен 30°, сторона ромба равна 4 см. Найдите...
1 - найти интервалы выпуклости и вогнутости функции и построить график...
2 - 1Answer 1. Do you think the hole in the ozone layer will get...
1 - Найдите значение производной функции f(x)= = -x^3-5x^2+5x в точке...
3 - Виберіть пару речовин, яким властивий ковалентний полярний зв...
1 - по русскому языку Прочитайте данный текст. Сформулируйте его...
1 - Реакция аминокислот с азотистой кислотой.К 2 мл 10% раствора...
1 - 1.Побудуйте в одній системі координат графіки функцій у=2-х і...
1 - Mary was blind at birth. Doctors during those years had been...
3 - Какие из перечисленных ниже положений соответствовали идеологии...
2
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.