Тема: Матрицы

const n=2; m=2;
var a: array [1..n,1..m] of integer;
    i, j, sum, pr, col: integer;
begin
     for i:=1 to n do begin
         for j:=1 to n do begin
             a[i,j]:=random(10)-5;
             write(a[i,j]:4);
         end;
         writeln;
     end;
     pr:=1;
     for i:=1 to n do begin
         for j:=1 to n do begin
             if (i mod 2=0) and (j mod 2=0) then begin
                inc(sum,a[i,j]);
                inc(col);
             end;
             if a[i,j]<0 then pr:=pr*a[i,j];
         end;
     end;
     writeln('Сумма ', sum);
     writeln('Ср. арифм-ое: ',sum/col:2:2);
     writeln('Произведение: ',pr);
     readln;
end.

const n=2; m=8;
var a: array [1..n,1..m] of integer;
    i, j, sum, pr, col, max, str: integer;
    b: boolean;
begin
     for i:=1 to n do begin
         for j:=1 to m do begin
             a[i,j]:=random(10)-5;
             write(a[i,j]:4);
         end;
         writeln;
     end;
     pr:=1; max:=a[1,1];
     for i:=1 to n do begin
         for j:=1 to m do begin
             if max<a[i,j] then max:=a[i,j];
             if (i mod 2=0) and (j mod 2=0) then begin
                inc(sum,a[i,j]);
                inc(col);
             end;
             if a[i,j]<0 then pr:=pr*a[i,j];
         end;
         for j:=1 to m do
             if max=a[i,j] then inc(str);
         if str=2 then b:=true;
         str:=0;
     end;
     writeln('Сумма ', sum);
     writeln('Ср. арифм-ое: ',sum/col:2:2);
     writeln('Произведение: ',pr);
     writeln('2 элемента в строке: ',b);
     readln;
end.