Question

написать программу, вычисляющую среднее арифметическое N чисел, введенных с клавиатуры. Цикл for; pascal.

Answer 1

const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin 
for var i := 1 to n do 
begin 
Read(a[i]); 
b+=a[i]; 
end; 
Writeln(b/n);
end.