Упорядочить по убыванию элементы каждой строки матрицы размером (n*m) .
У меня вот что получилось:
var
i, n, j: integer;
y: array[1..100] of word;
begin
writeln('введите размер матрицы:');
readln(n);
for i:=1 to n do
begin
write('y[',i']=');
readln(y[i]);
end;
writeln('массив y');
for i := 1 to n do write (y [i], ' ');
writeln;
for j:=1 to n-1 do
for i:=1 to n-j do
if y[i] > y[i+1] then
begin
b:=y[i];
y[i]:=y[i+1];
y[i+1]:=b;
end;
writeln('упорядоченная матрица');
for i:=1 to n do
write(y[i]. ' ');
writeln;
end.
получился массив, что ему не хватает до матрицы? =)