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

Светлая26 Светлая26    2   02.10.2019 06:40    0

Ответы
Maaaaagic Maaaaagic  11.08.2020 10:48

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика