Вычислить функцию, аргументы брать из массива, результаты поместить в файл. (исправить некоторые ошибки)

[Мирзали]

1) Вычислить yi=2 соs (xi)+в; здесь i=1,10. Массив x вводится из файла f1. в меняется от -4 шагом 0,5. Массив y записать в файл f2.

program mkurs;
var f1,f2:text;
 x,y:array [1..10] of real;
i,b:real; n,j:integer;
begin
assign(f1,'m1.txt'); assign(f2,'m2.txt');
reset(f1); rewrite(f2);
i:=1.1; b:=-4;

write('vvedite massiv');
for j:=1 to n do  readln(x[j]);
write(f1,x[j]);
b:=b+0.5;
y[i]:=2*соs*(x[i])+в;
write(f2, y[i]);
close(f1); close(f2);
end;
end.

помогите исправить пожалуйста....

[Alex11223]

в цикле после do begin и end где-то дальше.

[Мирзали]

y[i]:=2*соs*(x[i])+в; у меня в этой строке ошибка(

[Alex11223]

А ошибку не читали? У вас русская "в" вместо не знаю чего.

[Мирзали]

поменял его на "b". без результатно

[Мирзали]

выходит: y[i]- ожидалось выражение типа integer.

[Alex11223]

С cos наверно не правильно что-то, не помню как это в Паскале, но в любом случае это же функция, а вы с ней делаете что-то непонятное.

for j:=1 to n do  readln(x[j]);

А где у вас n?
И без begin после do в цикле же выполнится только этот readln n раз, все остальное за ним.

[Мирзали]

если у вас есть время, напишите мне пожалуйста код для моего условия

[Alex11223]

Вычислить yi=2 соs (xi)+в; здесь i=1,10

Это, вероятно, следует читать как y[i]=2*cos(x[i])+1.10? Как индекс (номер) элемента массива может быть 1.10, если как у вас написано i=1.10?

[Мирзали]

извините, но результат тот же((