Программа,сортирующая элементы массива по возрастанию - Pascal ABC
Формулировка задачи:
Дан одномерный массив, состоящий из 50 случайных чисел в диапазоне от -50 до 50. Составить программу, сортирующую элементы массива по возрастанию, вывести отсортированный массив на экран.
Решение задачи: «Программа,сортирующая элементы массива по возрастанию»
textual
Листинг программы
uses crt;
const n=50;
var a:array[1..n] of integer;
i,j,tmp:integer;
begin
clrscr;
writeln('ГЊГ*Г±Г±ГЁГў ГЂ :');
for i:=1 to n do
begin
a[i]:=-50+random(100);
write(a[i]:4);
end;
writeln;
writeln('ÎòñîðòèðîâГ*Г*ûé Г¬Г*Г±Г±ГЁГў :');
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
for i:=1 to n do
write(a[i]:4);
readkey;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д