Pascal

[Guest]

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

program z_14;
uses crt;
var a:array[1..50,1..50] of integer;
n,i,j,s,sr:integer;
begin
clrscr;
write('vv kol-vo strok i stolbcov');
readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
begin
if i=j then
s:=s+a[i,j];
end;
sr:=s/n;
writeln ('sr. arifm.= ',sr);
readln;
end.

выдает ошибку в строке

sr:=s/n;

помогите пожалуйста исправить эту ошибку

 

[Dock1100]

program z_14;
uses crt;
const n=5;		{///////////////////////////}
var a:array[1..n,1..n] of integer;
n,i,j,s:integer;
sr:real;

begin

clrscr;
write('vv kol-vo strok i stolbcov');
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
s:=0;
for i:=1 to n do					 {///////////////////////////}
s:=s+a[i,i];

sr:=s/n;
writeln ('sr. arifm.= ',sr:8:2);
readln;
end.

 

[hosm]

sr:integer;

мб real или какой там сейчас в паскале вещественный тип популярный?
или round?

Добавлено: Можно и сумму s делать вещественным типом, если есть угроза переполнения диапазона integer для суммы.

 

[Dock1100]

мб real или какой там сейчас в паскале вещественный тип популярный?
или round?

Незаметил.(уже исправил)

 

[Guest]

спасибо большое вам!