Прошу, помогите с задачей по инфе. 10 клас. Дан массив из 7 элементов. Найти среднее арифмитическое отрицательных элементов

Question

Информатика

Ларри

6 марта, 02:12

Прошу, помогите с задачей по инфе. 10 клас. Дан массив из 7 элементов. Найти среднее арифмитическое отрицательных элементов

+3

Ответы (1)

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

Аврелия · Answer 1

var m: array[0 ... 6] of integer;

sum1, n: integer;

begin

sum:=0;

n:=0;

for i:=0 to 6 do

begin

read (m[i]) ;

if (m[i] < 0) then

begin

sum:=sum+m[i];

n:=n+1;

end;

end;

writeln (sum/n) ;

end.