Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Задание по Паскалю
Вычисление математического ожидания оформить в виде процедуры.

Ответ оставил Гость

Var 
 m:real;
 n,i:integer;

procedure MathW(var i:integer;var m:real);
var
 x,p:real;
begin;
write(Введите значение ,i,:);
readln(x);
write(Введите вероятность ,i,:);
readln(p);
m:=m+x*p;
end;

begin;
write(Введите количество испытаний:);
readln(n);
for i:=1 to n do
MathW(i,m);
write(Result:,m);
end.