Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.

1

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

2012-05-01T09:30:18+00:00

Программа на Паскаль:
var a:array[1..N] of integer;

i,s,k,n:integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

k:=0;
s:=0;

for i:=1 to n do begin
s:=s+a[i];

inc(k);

end;

writeln(s/k);
end.