Что здесь не так? 22 строчка: Форматное выражение Сама программа Program Srednee_W1; Uses Crt; Var n: integer; x,y,h,s,s1,xk:real; Begin ClrScr; x:=0; xk:=3.1; h:=0.1; s:=0.0; n:=0; While x<=xk+h/2 do begin y:=sin(x); writeln(x:3:1,' |', y:5:2); if (y>0.1) and (y<0.6)then begin s:=s+y; n:=n+1 end; x:=x+h end; if n>0 then begin s1:=s/n: Writeln('Среднее арифметическое=', s1) end else Writeln('Таких значений нет n=0'); Readln End.
Рассмотрим строку с ошибкой:
s1:=s/n:
Видно, что в конце стоит двоеточие, а не ;
Это и стало причиной ошибки.
Замените строку на s1:=s/n;