Встроке 13 пишет "нет перегруженной подпрограммы с такими типами данных"
program hh;
var x: array[1..100] of real;
k: integer;
begin
write('введите первые элементы и их количество');
write('x[1]=');
read(x[1]);
write('x[2]=');
read(x[2]);
write('n=');
read(k);
for k: =3 to k do begin
x[k]: =sin*sin(x)[k-1]+(cos(x*x*x)[k-2]-1/x[k-1]);
end;
for k: =1 to n do begin
writeln('x[',k,']=', x[k]: 8: 3);
end;
end.
1)
тебе надо добавить переменную (например i)
и написать цикл
for i:=3 to k do
потому что паскаль использует переменную как счетчик, переписывая ее значения
2)
во втором цикле ты используешь переменную n, которой у тебя нет, и судя по программе у тебя там должно быть
for i:=1 to k do (если ты до этого добавил переменную i чтобы поправить первое)
3)
во всех циклах begin и end не обязательны, т.к. там 1 действие