СРОЧНО, ДАЮ 100 БАЛЛОВ! Pascal.
С помощью датчика случайных чисел на интервале от 7 до 36 задать массив из 10 элементов и найти среднее арифметическое. S=0; S=S+a[I]
С помощью датчика случайных чисел на интервале от 7 до 36 задать массив из 10 элементов и найти среднее арифметическое. S=0; S=S+a[I]
More Questions From This User See All
Answers & Comments
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.
## ArrRandom(10, 7, 36).Println.Average.Print