Хулиганов Иосиф
Искусственный Интеллект
(293111)
8 часов назад
У тебя индекс k должен изменяться от 1 до l (l - маленькая латинская L).
А ошибка из-за того, что ты сначала объявляешь
k:array[1..1] of real;
а ниже используешь тот же идентификатор как счетчик цикла
for k:=1 to 1 do
Вот компилятор и ругается на этот for.
Переменная k не должна объявляться как массив.
var
a:array[1..1] of real;
b:array[1..100,1..100] of real;
z:array[1..1] of real;
x:array[1..100] of real;
k:array[1..1] of real;
m,n,i,j,:integer;
sum_1,sum_2:real;
begin
writeln('Введите количество элементов n');
readln(n);
writeln('Введите количество элементов m');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
writeln('b[',i,j,']=');
readln(b[i,j]);
end;
for i:=1 to n do
begin
writeln('x[',i,']=');
readln(x[i]);
end;
for k:=1 to 1 do
begin
writeln('z[',k,']=');
readln(z[k]);
end;
sum_1:=0;
for i:=1 to n do
begin
sum_1:=sum_1+(x[i]*exp(x[i]));
end;
sum_2:=0;
for j:=1 to m do
begin
sum_2:=sum_2+(exp(b[i,j]*sin(b[i,j])));
end;
for k:=1 to 1 do
a[k]:=sum_1/ln(z[k]+sum_2);
writel('a[',k,']=',a[k]:0:3);
end.
пишет что в 25 строке ожидался порядковый тип
ПОМОГИТЕ!!! срочно