Вывод двумерного массива (положит. и в не главной диагонали)

[Alexbmgn]

{дан двумерный массив. Найти сумму и кол-во элементов
в каждой строке, положительных и лежащих вне главной диагонали}
uses crt;
const n=10;
type temp=array[1..n,1..n] of integer;
var mas,a:temp;
n_m,sum,kol,i,j:integer;


procedure vvod(var a:temp);
var i:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(96)-15;
end;

procedure vivod(var a:temp);
var i:integer;
begin
for i:=1 to n do write(a[i,j]:4);
end;

procedure suma(var a:temp);
var i:integer;
begin
writeln;
for i:=1 to n do if a[i,j]>0 then sum:=sum+a[i,j];
write('=', sum)
end;

procedure kol_el(var a:temp);
var i:integer;
begin
writeln;
for i:=1 to n do if a[i,j]>0 then kol:=kol+1;
write('Kol=', kol)
end;

begin
vvod(mas);
vivod(mas);
suma(mas);
kol_el(mas);

end.
Кто может, пожалуйста укажите на ошибки. Помоему у меня здесь что-то не то с выводом двумерного массива, который вывестись должен полагаю в виде матрицы.... И еще насчет главной диагонали всё ли верно...

[Zer0]

Во-первых - вывод

procedure vivod(var a:temp);
var i,j:integer;
begin
//for i:=1 to n do write(a[i,j]:4);
for i:=1 to n do begin
 for j:=1 to n do write (a[i,j]:4);
writeln;
end;
end;

Красный код можно убрать, это Ваша ошибка - цикл идет только по одной строке

Во-вторых, в остальных процедурах тоже цикл идет ПО ОДНОЙ строке, нужно два вложенных делать (как я написал выше например)

И в третьих - условие

if a[i,j]>0

Не верное, надо

if (a[i,j]>0) and (i<>j)

[Alexbmgn]

Ах ну да конечно же "if (a[i,j]>0) and (i<>j)" как я такое мог пропустить балда И с выводом массива теперь ясно. Дай вам Бог здоровья !!!