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

а(2,5)

столбцы

строки

C[i,j]=A[i,j]+B[i,j]

Программный код:  Var a: array[1..50,1..50] of integer;       i, j, n, m,S: integer; Begin Write(‘сколько строк?’); Readln(n); Write(‘сколько столбцов?’); Readln(m); For i:=1 to n do   For j:=1 to m do        begin                    write(‘a[‘,i,’,’,j,’)=’);     readln (a[i,j]);      {ввод двумерного массива}       end; For i:=1 to n do   begin      S:=0;      For j:=1 to m do        S:=S+a[i,j]; {подсчитывается сумма элементов строки}      Writeln(‘сумма элементов в ‘,i,’ строке равна  ‘,S);   end; End.

const N = 10;
var
m: array[1..N,1..N] of integer;
i, j: byte;
max: integer;
begin
randomize;
for i:=1 to N do begin
for j:=1 to N do begin
m[i,j] := random(50); write(m[i,j]:3);
end;
writeln;
end;
max := i;
for i:=2 to N do
if m[i,i] > m[max,max] then max := i; writeln(max,',',max, ' = ', m[max,max]); max := 1;
for i:=2 to N do
if m[i,N-i+1] > m[max,N-max+1] then max := i; writeln(max,',',N-max+1, ' = ', m[max,N-max+1]);
end.