В массике 50 элементов, числа от - 50 до 50, вычислить среднее арифметическое отрицательных чисел

Question

Информатика

Федюха

22 октября, 12:03

В массике 50 элементов, числа от - 50 до 50, вычислить среднее арифметическое отрицательных чисел

+4

Ответы (1)

Знаете ответ на вопрос?

Вячеслав · Answer 1

Const

n=50;

Var

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

k, i, s:integer;

begin

for i:=1 to n do

begin

a[i]:=random (101) - 50;

write (a[i]:4) ;

if a[i]<0 then

begin

s:=s+a[i];

k:=k+1;

end;

end;

writeln;

if k0 then

writeln (s/k)

else

writeln ('Нет отриц')

end.