Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Элементы массива

Автор: vadim(b) 17.11.2006 1:02

Эту задачу я уже как то у вас спрашивал "Расположить столбцы матрицы D[M, N] в порядке возрастания элементов k-и строки (1 ≤ k≤ M)." И я её ПРАКтически сделал. Я сделал чтобы по возрастанию отсартировавылись СТОЛбцы матрицы и всё остальное нормально рабоает. Но по маему заданию надо чтобы отсартировывалась строка. Найдите у меня ошибку в коде плиз. т.е у меня отсартировывается к-тый стобец заместо к-той строчки.
(какой же я глупый)

var
a:array[1..100,1..100] of integer;
min,g,k,n,m,i,j:integer;
begin
randomize;
writeln('Vvedite stroku');
readln(k);
writeln('Vvedite razmernost');
readln(n);
readln(m);
writeln('Ishodnyi massiv ');
for i:=1 to n do begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for g:=1 to 90 do begin
for i:=1 to n-1 do
if a[i,k]>a[i+1,k] then
begin
for j:=1 to m do
begin
min:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=min;
end;
end;
end;
writeln('Peredelanyi');
for i:=1 to n do begin
for j:=1 to m do
begin
write(a[i,j]:4);
end;
writeln;
end;
readln;

end.

Автор: volvo 17.11.2006 1:38

Тебе что, еще раз ссылку привести, чтоб ты научился задавать матрицы как положено, а не так, чтобы делалась вся вот эта никому не нужная рутина? Так как я тебе предлагал, задача решается в 5 строк, а у тебя что творится?