Question

Написать программу, которая вычисляет среднее арифметическое n чисел.
Выполнить в Pascal.

Answer 1

uses crt;
var
a,b,c,d:byte
begin
Writeln('Введите 3 числа через пробел')
readln(a,b,c)
d:=(a+b+c) div 3
Writeln('Среднее арифметическое ', d)
Readln
End.