Question

Помогите пожалуйста с задачей по информатике в паскале программу написать надо

Answer 1

const n = 10;

var ar:array[1..n]of integer;

i,j,tmp:integer;

begin

randomize;

write('Массив до сортировки: ');

for i:=1 to n do

begin

ar[i]:=random(101)-50;

write(ar[i], ' ');

end;

for i:=1 to n do

begin

for j:=i to n do

begin

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

begin

tmp:=ar[i];

ar[i]:=ar[j];

ar[j]:=tmp;

end;

end;

end;

writeln();

write('Массив после сортировки: ');

for i:=1 to n do

begin

write(ar[i], ' ');

end;

end.