Question

Встроке 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.

Answer 1

1)

тебе надо добавить переменную (например i)

и написать цикл

for i:=3 to k do

потому что паскаль использует переменную как счетчик, переписывая ее значения

2)

во втором цикле ты используешь переменную n, которой у тебя нет, и судя по программе у тебя там должно быть

for i:=1 to k do (если ты до этого добавил переменную i чтобы поправить первое)

3)

во всех циклах begin и end не обязательны, т.к. там 1 действие