Question

Помогите решить задачу в Pascal ABC, с помощью массивов!!!!
1.Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов (генерируются случайные числа от -10 до +10).
Заранее огромное спасибо))))

Answer 1

const n=20; 
var a:array[1..n] of integer; 
i,s,k:integer;
begin
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; k:=0;
for i:=1 to n do
  if a[i]<0 then begin s:=s+a[i]; k:=k+1; end;
writeln('Количество отрицательных = ',k,',  их среднее арифметическое = ',s/k:6:3);
end.

Пример:
  -1  -1  -9   7   4  -4   7   1   7   2   6  -4 -10   4   5   1   6  -9  -2   0
Количество отрицательных = 8,  их среднее арифметическое = -5.000