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.

Мы вводим с клавиатуры каждое из четырёх чисел, затем суммируем все цифры, из которых состоят числа, в общий котелок, ибо среднее арифметическое сумм всех цифр умноженное на 4 будет равняться сумме всех цифр в числах. Затем, как ни странно, мы вещественно делим эту сумму на 4 и получаем среднее арифметическое.

Если надо среднее арифметическое для каждого из чисел, то код должен быть следующим:

Var a,i: integer; s: real;

Begin

for i := 0 to 3 do begin

read(a);

s := a div 10 + a mod 10;

writeln(s / 2);

end;

End.

Ответ:

program summa_4_dvuhznachnih_chisel;

var a,i,sum: integer;

begin

sum:=0;

for i := 1 to 4 do begin

read(a);

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

end;

writeln(sum/4);

end.

Объяснение:

program summa_4_dvuhznachnih_chisel;

var a,i,sum: integer;

Переменные:

А для чисел

I организация цикла для ввода 4х чисел

Sum переменная для нахождения суммы

begin

Начало проги

sum:=0;

Начальное значение суммы 0

for i := 1 to 4 do begin

Цикл для ввода 4х чисел

read(a);

Ввод числа с клавиатуры

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

Увеличение значения суммы на значение первой и последней цифры числа

end;

Конец цикла

writeln(sum/4);

Вывод суммы, выделенной на 4, то есть среднего арифметического

end.