Найдите среднее арифметическое массива А (Паскаль)

Question

Найдите среднее арифметическое массива А (Паскаль)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var x:array[1..100]:real; k,s,p:integer; begin writeln(`количестов элементов в массиве`); readln(n); writeln(`введите массив`); for k:=1 to n do readln(x); s:=0; for k:=1 to n do s:=s+x[k]; s:=s/n; writeln(s);