[438raskotik]

Доброго времени суток!

Код:

{$APPTYPE CONSOLE}

type massiv=array[1..20000] of integer;
procedure zap(var x:massiv; n: integer);
var i: integer;
begin
for i:=1 to n do x[i]:=random(100);
end;

procedure prt(x:massiv;n:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(x[i]:4);
writeln;
end;

procedure ubv (var x: massiv; n: integer);
var i, j, t: integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if (x[i]<x[j]) then
begin
t := x[i];
x[i] := x[j];
x[j] := t;
end;
end;

var mas: massiv;
n: integer;
begin
randomize;
write('n=');
readln(n);
zap(mas,n);
prt(mas,n,'Исходный массив');
ubv(mas,n);
prt(mas,n,'Отсортированный массив');
readln
end.

Админ: Пользуемся тегами для оформления кода!

В begin надо проставить значения что бы код заработал .Прошу вашей помощи.

[Alegun]

Оно и так работает. Или нужен не рандомный, а ручной ввод значений в элементы матрицы? - тогда вот, для этого, что нужно заменить

Код:

procedure zap(var x:massiv; n: integer);
var
i: integer;
begin
for i := 1 to n do
 begin
  write('x[' + IntToStr(i) + '] = ');
  readln(x[i]);
 end;
end;