Курсовая работа: Массивы в языке Паскаль

else

begin

a[i,j]:=0;

end;

for i:=1 to n do

for j:=1 to n do

begin

writeln('a[',i,',',j,']=',a[i,j]);

readln;

end;

readln; end.

7. Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали

program zadacha_7;

uses crt;

Var

a:array[1..50,1..50] of integer;{массив}

i,j:integer;

s,n,k:integer;

sr:real;

begin

clrscr;

write('введите кол-во строк');

readln(n);

write('введите кол-во столбцов');

readln(n);

write ('введите кол-во чисел');

readln(k);

for i:=1 to n do

for j:=1 to n do