Pascal

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

#1
дана квадратичная матрица порядка 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.

выдает ошибку в строке
помогите пожалуйста исправить эту ошибку
 
09.11.2009
665
1
#2
Код:
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.
 
Статус
Закрыто для дальнейших ответов.