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 действие