ДВУМЕРКИ
const n=10;
type
TMas=array [1..n,1..n] of integer;
TVector=array [1..n] of integer;
TIndex=1..n;

procedure InMas(var A:TMas; var k:TIndex);
{ввод двумерного масива}
var
i,j:TIndex;
begin
write('vvedite razmernost');
readln(k);
writeln;
for i:=1 to k do
for j:=1 to k do
begin
write('vvedite [',i,',',j,'] chislo: ');
readln(a[i,j]);
end;
end;
procedure OutMas(const A:TMas; k:TIndex);
{вывод двумерного масива}
var
i,j:TIndex;
begin
for i:=1 to k do
begin
for j:=1 to k do
write(A[i,j],' ');
writeln;
end;
end;
procedure trans(var A:TMas; k:TIndex);
{транспонирование массива}
var
i,j:TIndex;
s:integer;
begin
for i:=1 to k do
for j:=i+1 to k do
begin
s:=A[i,j];
A[i,j]:=A[j,i];
A[j,i]:=s;
end;
end;
procedure sort(var A:TMas; k:TIndex);
{сортировка по вводимой строке}
var
s,l,i,j:TIndex;
b:TVector;
z:integer;
begin
write('vvedite sortiruimuiu stroku: ');
readln(s);
for i:=1 to k do
b[i]:=A[s,i];
for i:=1 to k-1 do
begin
l:=i;
z:=b[i];
for j:=i+1 to k do
if b[j]begin
l:=j;
z:=b[j];
end;
b[l]:=b[i];
b[i]:=z;
end;
for i:=1 to k do
A[s,i]:=b[i];
end;
Procedure changestr (var A:TMas; k,k1,k2:TIndex);
{поменять местами 2 строки}
Var z:integer; j:Tindex;
Begin
For J:=1 to k do
Begin
Z:=A[k1,j]; A[k1,j]:=A[k2,j];
A[k2,j] :=z;
End;
Procedure change (var A:Tmas, k:TIndex);
{поменять местами 2 столбца}
Var k1, k2:TIndex; s:Integer; i:TIndex;
Begin
Writeln(‘vvedite nomer pervogo stolbca dlya obmena’);
Readln(k1);
Writeln(‘vtorogo’);
Readln(k2);
For i:=1 to k do
Begin
S:=A[i;k1];
A[i,k1]:=A[i,k2];
A[i,k2]:=S;
End;
End;
Procedure change+( var A:TMas; k:TIndex);
{обмен строки со столбцом}
Var k1, k2, I, j: TIndex; s:integer;
Begin
Writeln(‘vvedite nomer stroki’);
Readln(k1);
Writeln(‘vvedite nomer stolbca’);
Readln(k2);
For i:=1 to k do
Begin
S:=A[k1,i];
A[I,k2]:=A[k1,i];
A[I,k2]:=S;
End;
End;
Function kolichCH(const A:TMas; k1,k2:TIndex):TIndex;
{подсчет количества четных элементов в строке}
Var i,l:TIndex;
Begin
L:=0;
For i:=1 to k do
If (A[k1,i] mod 2=0) then
L:=L+1;
kolichCH:=L;
end;
function maxV(const A:Tmas; k1,k:TIndex):integer;
{поиск максимального в k-той строке}
var i:TIndex; max: integer;
begin
max:=A[1,k1];
for i:=1 to k do
if (maxmaxV:=max;
end;
procedure maxEL (const A:TMas; k:TIndex var Max: Integer; var n:TIndex);
{поиск максимального элемента и его номера в столбце k1}
Var i:TIndex;
Begin
N:=1; max:=A[1,k1];
For i:=2 to k do
If maxBegin
Max:=A[i,k1]; n:=i;
End;
End;
procedure sort2(var A:TMas; k:TIndex);
{сортировка по вводимому столбцу}
var
s,l,i,j:TIndex;
b:TVector;
z:integer;
begin
write('vvedite sortiruimiy stolbec: ');
readln(s);
for i:=1 to k do
b[i]:=A[i,s];
for i:=1 to k-1 do
begin
l:=i;
z:=b[i];
for j:=i+1 to k do
if b[j]begin
l:=j;
z:=b[j];
end;
b[l]:=b[i];
b[i]:=z;
end;
for i:=1 to k do
A[i,s]:=b[i];
end;
var {основа}
M:TMas;
k1:TIndex;
begin
InMas(M,k1);
OutMas(M,k1);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.