Задан массив 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.
Не нашли ответ?
Похожие вопросы