Предмет: Информатика, автор: litvinovroman

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

Ответы

Автор ответа: kotovandrei95
0
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);
Похожие вопросы
Предмет: Литература, автор: elyacher00
Предмет: Математика, автор: Аноним