Задача. Дан массив. Рассортировать элементы
массива по убыванию.
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.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задача. Дан массив. Рассортировать элементы массива по убыванию. program sortirovka; var n, k, z, x : integer; a : array[1 ... 50] of ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?
Ответы (2)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)
Помогите с ответом
Помогите решить - теплоход за два дня был в пути 12 часов. В первый день он прошел 256 км., а во второй - 128 км. Сколько часов теплоход провел в пути в каждый из этих дней, если он двигался с одинаковой скоростью?
Нет ответа
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа