Презентация, доклад по теме Двумерные массивы

каждый элемент характеризуется номером строки- i и номером столбца- j.

a[1,1] a[1,2] a[1,3] a[1,4] a[1,5]
a[2,1] a[2,2] a[2,3] a[2,4] a[2,5]
a[3,1] a[3,2] a[3,3] a[3,4] a[3,5]
a[4,1] a[4,2] a[4,3] a[4,4] a[4,5]
a[5,1] a[5,2] a[5,3] a[5,4] a[5,5]

При N=5 и M=5

Номер строки

Номер столбца

столбцов. (N=M)

Главная диагональ
i=j

Побочная диагональ
j=n-i+1

[1..n,1..m] of integer;

integer;
i,j : integer;
…
randomize;
for i := 1 to n do begin {цикл для перебора всех строк}
for j:=1to m do begin {перебор элементов строки по столбцам}
a[i,j]:=random(50);
write(a[i,j]);
end;
writeln;
end;
…

j := 1 to m do
write(a[i,j]);
writeln;
end;

for j := 1 to m do
s:=s+a[i,j];

min:=a[1,1];
for i := 1 to n do
for j := 1 to m do
if a[i,j] min:= a[i,j]; imin:=i; jmin:=j;
end;

)+ X байт * M*( I -1)+ X байт *( J -1) ,

где Х байт – размер одного элемента
M – количество элементов в строке

n-2 n-1 n
2 1 2 ... n-3 n-2 n-1
3 2 1 ... n-4 n-3 n-2
....................
n-1 n-2 n-3 ... 2 1 2
n n-1 n-2 ... 3 2 1

[1..10, 1..10] Of Integer;
Begin
Write('Введите порядок матрицы: '); ReadLn(N);
For I := 1 To N Do
For J := I To N Do Begin
A[I, J] := J - I + 1; A[J, I] := A[I, J];
End;
For I := 1 To N Do Begin
WriteLn;
For J := 1 To N Do Write(A[I, J]:4);
End; End.