Программа: Cумма и среднее арифметическое последовательности положительных чисел

Задача: Посчитать сумму и среднее арифметическое цифр введеных в строку

PROGRAM summa_i_sr_arifm;
var str		:string; 
	a,s,i,b :integer; 
    sr		:real;

BEGIN
	ReadLn(str);
	a:=length(str);
	s:=0;
	for i:=1 to a do
	  begin
		b:=StrtoInt(str[i]);
		s:=b+s;
	  end;
	sr:=s/a;
	WriteLn('Сумма цифр равна: ',s,' Среднее арифметическое равно: ',sr);
END.

Просмотрело: 2284

Возможно, Вы искали: