Question

Помогите пожалуйста с паскалем, не как не могу решить(

Answer 1

// Насколько я смог разобрать, тебе нужно это

const n = 5;

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

i, j, imax, x: integer;

begin

 randomize;

 for i:=1 to n do

   a[i]:=random(90);

 

 writeln('Исходный массив: ');

 for i:=1 to n do

   writeln('a['+i+'] = '+a[i]);

 writeln();

   

 for i:=1 to n-1 do

 begin

   imax:=i;

   for j:=i+1 to n do if a[j]>a[imax] then imax:=j;

   x:=a[i];

   a[i]:=a[imax];

   a[imax]:=x;

 end;

 

 writeln('Отсортированный по убыванию массив: ');

 for i:=1 to n do

   writeln('a['+i+'] = '+a[i]);

 writeln();

end.