Вычислить среднее арифметическое отрицательных элементов вектора Q(21) p.s.через программу паскаль
Вычислить среднее арифметическое отрицательных элементов вектора Q(21)
p.s.через программу паскаль
Гость
Ответ(ы) на вопрос:
Гостьconst n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
q[i]:=random(51)-10;
write(q[i]:4);
end;
writeln;
k:=0; s:=0;
for i:=1 to n do
if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.
Пример:
16 -1 -7 5 13 11 -2 -10 36 19 3 34 23 29 12 28 9 39 33 16 -6
Среднее арифметическое отрицательных элементов = -5.2
Не нашли ответ?
Похожие вопросы