Задан массив 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
