
Nahelm
4 год назад
Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала [-10,30]. Найти среднее арифметическое положительных элементов.
ОТВЕТЫ

Ulyana
Oct 24, 2020
begin
var a:=ArrRandom(15,-10,30); a.Println;
Writeln(a.Where(t->t>0).Average)
end.
9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625
const
n=15;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(41)-10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln(s/n)
end.
53
Смежные вопросы: