составить проект. вычислить среднее арифметическое отрицательных элементов массива С1, С2 ... С30, пологая, что в массиве есть отрицательные значения. (это нужно сделать в паскале.)

Question

Информатика

Аксюня

7 апреля, 21:24

составить проект. вычислить среднее арифметическое отрицательных элементов массива С1, С2 ... С30, пологая, что в массиве есть отрицательные значения. (это нужно сделать в паскале.)

+1

Ответы (1)

Знаете ответ?

Евстолия · Answer 1

var

c: array[1 ... 30] of integer;

i, n, k:integer;

begin

n:=0;

k:=0;

for i:=1 to 30 do

readln (c[i]) ;

for i:=1 to 30 do begin

if c[i]<0 then begin

n:=n+1;

k:=k+c[i];

end;

end;

writeln ('srednee=', k/n)

end.