Найти среднее арифметическое в массиве из 30 случайных чисел в диапазоне [-100; 100]

[kurdasov]

Нужно написать программу, которая будет заполнить массив N = 30 элементов целых чисел, выбранных случайным образом
в диапазоне от -100 до 100, найти среднее количество (X) с этих чисел. Содержимое массива и среднее число
нужно вывести на экран .

[Вадим Мошев]

Начинайте писать. Если что-то не будет получаться - спрашивайте, приводите свои наработки, вам тогда помогут.

[digitalis]

Что значит "среднее количество" ? Количество этих чисел известно = 30. А если нужно среднее арифметическое, то так и надо говорить. И на каком языке - LISP, Smalltalk, Cobol ?

Ничего не могу с собой поделать, знаю - не надо ленивым студентам халяву вручать - а вот...

program  one ;
var i: integer;
X : array [1..30] of real ;
s : real ;
begin
  Randomize ;
  writeln ('=================') ;
  for i:=1 to 30 do  X[i]:=(Random*200.0) - 100.0 ;
  s :=0 ;
  for i:=1 to 30 do
    begin
      s := s + X[i] ;
      writeln (X[i]:10:4)
    end ;
  s := s/30.0 ;
  writeln ('Average = ',s:10:6)
end.