Программа Паскаль

[Vika300]

Не могу получить результат,найдите пожалуйста ошибку!
Program a1;
var i,n,k :integer;
S,SR:real;
begin write('n=');read(n);
for i:=1 to n do
if (y[i]>=1) and (y[i]<=40)
begin then S:=S+y[i];k:=k+1;end;
SR:=S/k;
write ('SR=',SR:6:3);
for i:=1 to n do begin
if SR>20 then y[i]:=1;
write('y[i]=',y[i]:6:2);
end;end.

[ZX Spectrum-128]

begin then S:=S+y[i];k:=k+1;end;

Может быть, и все-таки, then begin

А не наоборот?

[Vika300]

да точно , теперь пишет "неизвестное имя y"?

[BDA]

Правильно пишет. Объявите переменную "y" типа array[1..100] of real (100 взято с потолка). И не забудьте заполнить массив чем-нибудь. А еще неплохо бы инициализировать "k" нулем, и при делении на "k" проверять, что "k" не равен нулю.

[Vika300]

Спасибо большое , все сделала как вы сказали))