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

1

Ответы и объяснения

2013-05-01T15:52:33+00:00

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.