Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.

Написать программу в Pascal.

Question

Информатика

Василинка

22 октября, 18:48

Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.

Написать программу в Pascal.

+2

Ответы (1)

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

Толяна · Answer 1

Var

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

i, n, c, h: integer;

begin

writeln ('Введите кол-во элементов последовательности:') ; readln (n) ;

writeln ('Введите последовательность:') ;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]<0 then

begin

c:=c+a[i];

h:=h+1;

end;

end;

writeln (c/h) ;

end.

Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.Написать программу в Pascal.

Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.

Написать программу в Pascal.