Помогите с заданием. "упорядочьте одномерный массив по возрастанию" нужно написать код...

0 голосов
51 просмотров

Помогите с заданием. "упорядочьте одномерный массив по возрастанию" нужно написать код программы в паскаль. желательно с объяснением! спасибо заранее


Информатика (16 баллов) | 51 просмотров
0

Можно видеоуроки

Дан 1 ответ
0 голосов

Ответ будет ниже,дабы читаемость кода повысить.

(4.0k баллов)
0

program masiv;
const N=10;
var mas:array [1..10] of integer;
i,j,r,o:integer;
begin
for o:=1 to N do
mas[o]:=Random(30)+30;
for i:=1 to N-1 do
for j:=1 to N-i do
if (mas[j]>mas[j+1]) then
begin
r:=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=r;
end;
Writeln(mas)
end.

0

Если есть вопросы,то напиши.Или я могу видео урок скинуть на эту тему

0

Спасибо большое! А можешь обьяснить почему нужен random 30? И сможешь каждую сточку постепенно обьяснить? Буду очень благодарна!!!