Встроке 16 пишет "нет индексного свойства по умолчанию для типа integer"

program p3;
var a,k,i,j,m,n: integer;
s1,s2: real;
b,x: array[1..100] of real;
y: array[1..100,1..100] of real;
begin
s1: =0;
write('введите n=');
readln(n);
write('введите m=');
readln(m);
for i: =1 to n do
for j: =1 to m do
begin
write('a[',i,j,']=');
read(a[i,j]);
end;
for i: =1 to n do
for j: =1 to m do
s1: =s1+sqrt(sin(a[i,;
for i: =1 to n do
begin
write('x[',i,']=');
read (x[i]);
end;
for k: =1 to n do
begin
s2: =0;
for i: =1 to k do
s2: =s2+x[i]+cos(a[k,i]);
b[k]: =k*s1/s2;
write(' ',b[k]: 0: 4);
end;
end.

Дарига65    2   26.11.2019 18:18    3