Размещено 4 года назад по предмету
Информатика
от rambo76
Что здесь не так? 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: