Question

с клавиатуры вводится 4 2-значных числа. Найдите среднее арифметическое между суммами всех цифр в числах. Помогите срочно!

Answer 1

Var a,i: integer; s: real;

Begin

for i := 0 to 3 do begin

read(a);

s := s + a div 10 + a mod 10;

end;

writeln(s / 4);

End.