Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!
Записать программу на языке Паскаль дан массив заполнить его пятнадцатью случайными числами и расставить их по возрастанию

Answer 1

program mas_sort_ub_i_max;

const

n=15;

var

a:array[1..n] of integer;

i,t,j:integer;

begin

writeln('Массив исходный 》');

for i:=1 to n do

begin

a[i]:=random(41)-20;

write(a[i]:3,' ');

end;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i])>(a[j]) then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln('Массив отсортированный 》');

for i:=1 to n do

write(a[i]:3,' ')

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(15, -99, 99);

 a.Println;

 a.Sort;

 a.Print

end.