Задан массив 15 случайных чисел из отрезка (0,50). Отсортировать данный массив по возрастанию (программа Паскаль)
Задан массив 15 случайных чисел из отрезка (0,50). Отсортировать данный массив по возрастанию (программа Паскаль)
Гость
Ответ(ы) на вопрос:
ГостьVar
a:array[1..15] of integer;
i,m,n:integer;
Begin
Writeln('Изначальный массив ');
for i:= 1 to 15 do
Begin
a[i]:= random(51);
Write(a[i],' ');
End;
for i:= 1 to 15 do
for m:= 1 to 14 do
if a[m]>a[m+1] then Begin
n:=a[m];
a[m]:=a[m+1];
a[m+1]:=n;
End;
Writeln;
Writeln('Преобразованный массив ');
for i:= 1 to 15 do
Write(a[i],' ');
End.
Не нашли ответ?
Похожие вопросы