Обработки многомерных массивов с использованием циклов.

[DanielDefo]

Составить программу для обработки многомерных массивов с использованием циклов:
Дана цело-численная квадратная матрица. Определить: а) сумму элементов в тех столбцах, которые не содержат отрицательных элементов, б) минимум среди сумм модулей элементов Диагоналей, параллельных побочной Диагонали матрицы.

Задание сделать эту программу на С++ и на Паскале.

Вот есть листинг этой программы на С++:

#include <stdio.h>
#include <math.h>
#define N 3
void main()
{
int A[N][N];
int i, j, z, sum, min;
 
for (i = 0; i < N; i++)
for (j = 0; j < N; j++)
scanf("%d",&A[i][j]);
 
for (j = 0; j < N; j++)
{
sum = 0;
for (i = 0; i < N; i++) 
{
if(A[i][j] >= 0 )
sum += A[i][j];
else
break;
}
if ( i == N) printf(" %d Suma elementov v stolbce = %d\n",j,sum);
}
sum = 0;
 
for(j = N-2; j > 0; j--,sum = 0)
{
for(i = N-1,z = j; z < N; i--,z++)
sum += abs(A[i][z]);
if ( j == N-2)
min = sum;
else if (sum < min)
min = sum;
}
 
for(j = N-2; j > 0  ; j--,sum = 0)
{
for(i = 0,z = j; z >= 0; i++,z--)
sum += abs(A[i][z]);
if ( j == N-2)
min = sum;
else if (sum < min)
min = sum;
}
printf("Minimum Sum = %d",min);
}

А вот на Паскале не могу написать это же. Помогите решить. Заранее спасибо.

[Stilet]

Что-то вроде такого:

var q,w,d1,d2:integer;a:array[1..5,1..5] of integer;
 s:array[1..5] of integer;
begin
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
    a[q,w]:=90-random(100);write(a[q,w]:5);
  end; writeln;
    d1:=d1+abs(a[q,q]);
    d2:=d2+abs(a[6-q,q]);
  for w:=1 to 5 do begin
    if a[q,w]<0 then begin
     s[q]:=-MaxInt;
     break;
    end else    begin
     s[q]:=s[q]+a[q,w];
    end;
  end;
 end;
 writeln;
 for q:=1 to 5 do if s[q]<>-maxint then write(s[q]:5) else write('     ');
 writeln;
 if d1<d2 then write('D1=',d1) else write('D2=',d2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[DanielDefo]

Я это в паскале вбил и у меня выбило сразу всю матрицу 5х5. И в столбце где -1 считает сумму. А как сделать чтою именно выдавало что
" сумма элементов в столбце (например) = 10
Минимум сумм =8"
Буду очень благодарен

[Stilet]

Минимум сумм =8"

А вон видишь там Writeln с 'D1'?
Вот в нем и пропиши 'сумма элементов в столбце'