В двумерном массиве (3 на 3) отсортировать его рядки по убыванию их первых элементов.
Спасибо большое.
Я конечно попытался что-то сделать, но там бред полный.
program z4;
var
mas1,mas2:array[1..3,1..3] of integer;
m1,m2,m3,mst,mp:array [1..3] of integer;
i,j,buf:integer;
begin
writeln('vvedit pershiy rjadok');
for i:=1 to 3 do
begin
mp:=i;
readln(m1);
end;
Writeln('vvedit drugiy rjadok');
for i:=1 to 3 do
begin
readln(m2);
end;
Writeln('vvedit tretiy rjadok');
for i:=1 to 3 do
begin
readln(m3);
end;
for i:=1 to 3 do
mas1[1,i]:=m1;
for i:=1 to 3 do
mas1[2,i]:=m2;
for i:=1 to 3 do
mas1[3,i]:=m3;
for i:=1 to 3 do
mst:=mas1[i,1];
for i:=1 to 3 do
for j:=1 to 2 do
if mst[j]<mst[j+1]then
begin
buf:=mst[j];
mst[j]:=mst[j+1];
mst[j+1]:=buf;
buf: ;
buf:=mp[j];
mp[j]:=mp[j+1];
mp[j+1]:=buf;
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
mas2[j,i]:=mas1[mp[j],i];
end;
Writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas2[i,j],' ');
end;
writeln;
end;
readln;
end.
Вторая задача: Получить массив B (N), где B (I) - это минимальный элемент среди элементов i - того строки матрицы, кроме элемента, принадлежащего главной диагонали. Поиск минимального элемента оформить как процедуру.
И мой бред:
program z5;
var
mas1:array[1..3,1..3] of integer;
m1,m2,m3,b:array [1..3] of integer;
dig: array[1..2]of integer;
i,j,min:integer;
procedure minimum(m1:array of integer;nr:integer);
begin
if m1[1]<m1[2] then b[nr]:=m1[1] else b[nr]:=m1[2];
end;
begin
writeln('vvedit pershiy rjadok');
for i:=1 to 3 do
begin
readln(m1);
end;
Writeln('vvedit drugiy rjadok');
for i:=1 to 3 do
begin
readln(m2);
end;
Writeln('vvedit tretiy rjadok');
for i:=1 to 3 do
begin
readln(m3[i]);
end;
for i:=1 to 3 do
mas1[1,i]:=m1[i];
for i:=1 to 3 do
mas1[2,i]:=m2[i];
for i:=1 to 3 do
mas1[3,i]:=m3[i];
dig[1]:=m1[2];
dig[2]:=m1[3];
minimum(dig,1);
dig[1]:=m2[1];
dig[2]:=m2[3];
minimum(dig,2);
dig[1]:=m3[1];
dig[2]:=m3[2];
minimum(dig,3);
writeln;
for i:=1 to 3 do
writeln(b[i]);
readln;
end.
Помогите пожалуйста