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

Question

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

Comments

язык программирования какой?

---

тогда пишу, на паскале, раз не отвечаете

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<br>                 begin
                     s:=s+a[i];
                      k:=k+1;
                 end;
      end;
writeln;
if k<>0 then
     writeln(s/k)
else
     writeln('Нет отриц')
end.