Напишите программу в Pascal для этой задачи:

Найти среднее арифметическое и сумму последовательности положительных чисел

Question

Информатика

Станимир

26 мая, 02:02

Напишите программу в Pascal для этой задачи:

Найти среднее арифметическое и сумму последовательности положительных чисел

+2

Ответы (1)

Знаете ответ на вопрос?

Илиодор · Answer 1

Var a, sum, i : integer; s, x : string; sa : real;

begin sum:=0; readln (s) ; for i:=1 to length (s) do begin x:=copy (s, i, 1) ; val (x, a) ; sum:=sum+a; end; sa:=sum / (length (s)) ; writeln ('сумма: ', sum) ; writeln ('среднее арифметическое: ', sa:4:2) ; end.

Напишите программу в Pascal для этой задачи:Найти среднее арифметическое и сумму последовательности положительных чисел

Напишите программу в Pascal для этой задачи:

Найти среднее арифметическое и сумму последовательности положительных чисел