вычислить и вывести суммы отрицательных элементов,которые росположеные на главной и побочной диагоналях;

[milasssska]

2)есть две матрицы С(5,5) Д(4,4) вычислить и вивести сумми отрицательных элементов,которые росположеные на главной и побочной диагоналях;

[ROMA2PVT]

-II-

uses crt;
Const
k=5;
k2=5;
k3=4;
k4=4;
Type
   mas=array [1..100,1..100] of integer;
var
b:mas;
a:mas;
i,j,sum,sum2:integer;

function summa(n,m:integer;c:mas):integer;
begin
sum:=0;
sum2:=0;
  for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  if (j=n-i+1) and (c[i,j]<0) then
    sum:= sum+c[i,j];
    if (i=j) and (c[i,j]<0) then
    sum2:=sum2+c[i,j];
    end;
    end;
    end;

begin
randomize;
writeln('Массив B: ');
For i:=1 to k do
begin
For j:=1 to k2 do
begin
b[i,j]:=random(10)-2;
write(b[i,j]:2);
end;
writeln;
end;
summa(k,k2,b);
    writeln;
    writeln('Сумма элементов побочной диагонали массива B:=',sum,'; Сумма элементов главной диагонали массива B:=',sum2);
 writeln('Массив A: ');
For i:=1 to k3 do
begin
For j:=1 to k4 do
begin
A[i,j]:=random(10)-2;
write(a[i,j]:2);
end;
writeln;
end;
summa(k3,k4,a);
    writeln;
    writeln('Сумма элементов побочной диагонали массива A:=',sum,'; Сумма элементов главной диагонали массива A:=',sum2);
 end.

Можешь ещё на процедурки разбить.Меньше кода получиться.А мне влом.