Question

1. Разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического.

Answer 1

program srednee;
var a,b,c,d: integer;
s: real;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
s:=(a+b+c+d)/4;
writeln ('Среднее', ' ', 'арифметическое:', ' ', s);
end.