Напишите программу в pascal для этой : найти среднее - вопрос №7430644 от з1з1 03.03.2021 21:50

Question

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

з1з1 · Answer

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.