Введите с клавиатуры 6 чисел и определите их среднее арифметическое. Составить программу...

Question

Введите с клавиатуры 6 чисел и определите их среднее арифметическое. Составить программу на языке Паскаль.

Answer 1

Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.