Перестановка в матрице - Turbo Pascal
Формулировка задачи:
Нужен фрагмент программы в котором бы в матрице элементы переставлялись бы следующим образом:
в первом столбце матрицы находились минимальные эл-ты строк,а в последнем-максимальные.
П.с. Скиньте пожалуйста ссылку на тему где выложены программы для Паскаля.
Решение задачи: «Перестановка в матрице»
textual
Листинг программы
program m1;
const e=10;
var m: array [1..e,1..e] of integer;
a,b,n,k: integer;
begin
for a := 1 to e do begin
for b := 1 to e do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],' ');
end;
writeln();
end;
writeln();
{---------------------------------------------------}
for n:=1 to e do
for a:=1 to e do
for b:=1 to e-1 do
if m[a,b] > m[a,b+1] then
begin
k:=m[a,b+1];
m[a,b+1]:=m[a,b];
m[a,b]:=k;
end;
{---------------------------------------------------}
for a := 1 to e do begin
for b := 1 to e do
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],' ');
writeln();
end;
writeln();
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д