Задание:
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.
Знаете другой ответ?