П Р О Г Р А М М А

PROGRAM PR1;

VAR a: integer;

n: integer;

S: integer;

m: real;

BEGIN

Write (‘введите числа’);

Readln (a);

S:=0;

n:=0;

REPEAT

S:=S+a;

n:=n+1;

UNTIL a<=0;

n:=n-1;

Writeln (‘сумма чисел:’,S);

m:=S/n;

Writeln (‘среднее арифметическое:’,m:6:2);

END.

Пример 2. Вычислить значение функции , если х меняет значения на интевале с шагом h=0.2.