Question

СРОЧНО, ДАЮ 100 БАЛЛОВ! Pascal.
С помощью датчика случайных чисел на интервале от 7 до 36 задать массив из 10 элементов и найти среднее арифметическое. S=0; S=S+a[I]

Answer 1

var

a : array[1..10] of integer;

s, i : integer;

begin

randomize;

for i := 1 to 10 do

begin

a[i] := random(30)+7;

write(a[i],' ');

s:= s + a[i];

end;

writeln();

writeln('SR = ',s/10:5:2);

end.

Answer 2

## ArrRandom(10, 7, 36).Println.Average.Print