Нужно срочно решение задачи:
Упорядочьте строки матрицы по возрастанию их величин. (Подпрограммы)
procedure sort;удовлетворяет условию задачи: все строки матрицы имеют одинаковую длину, матрицу можно считать уже отсортированной...
begin end;
Program pr4;
uses crt;
const n=8;
var a: array [1..n,1..n] of integer;
i,j: integer;
Begin
clrscr;
Writeln('Генерация матрицы');
randomize;
for i:=1 to n do
Begin
for j:=1 to n do
Begin
a[i,j]=random(80)-15;
Write(a[i,j]:3,' ');
End;
Writeln;
End; {Я так понял что сгенерировал матрицу и вывел её, а дальше не знаю что делать и куда пихать подпрограмму:о(}
readkey;
End.