Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое

Question

Информатика

Ядвига

3 февраля, 17:02

Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое

+1

Ответы (1)

Знаете ответ?

Всеслав · Answer 1

Var

a: array[1 ... 12] of real;

s: real;

i: byte;

begin

for i:=1 to 12 do

begin

a[i]:=random (101) ;

write (a[i], ' ') ;

s:=s+a[i];

end;

s:=s/12;

writeln ('') ;

write ('Среднее арифметическое: ', s) ;

end.