Одномерный массив - главная диагональ

[Alvaros]

Помогите решить
дан массив a(8,8). условие: если главная диагональ положительна, то обнулить все элементы.

Помогите!!!!!!!!!!

Мой вариан здесь, но он плохо работает

[dr.Jekill]

[syntax="pascal"]
uses crt;
const n=8;
var a:array[1..n,1..n] of integer;
i,j,sum:integer;
begin
sum:=0;
clrscr;
writeln('Ishodnaia matrica:');
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
if i=j then sum:=sum+a[i,j];
if a[i,j] div 10 > 0 then write(a[i,j],' ')
else write(a[i,j],' ');
end;
writeln;
end;
readln;
if sum>0 then
begin
writeln('Glavnaia dioganal polozhitelna.');
for i:=1 to n do
for j:=1 to n do a[i,j]:=0;
writeln('Vse elementy matricy obnulenny.');
end
else writeln('Glavnaia dioganal NE polozhitelna!');
readkey;
end.
[/syntax]
Додалайте заполнение массива под отрицательные элементы

[Alvaros]

Спасибо

p.s. признаюсь честно - программирование дается трудно