Регистрация
FruitAPps
05.05.2023 08:23
Информатика
Есть ответ 👍

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

for i:=1 to n do

230
338
Посмотреть ответы 2

Ответы на вопрос:

coldsssiemens
coldsssiemens
4,7(54 оценок)

раз массив уже дан, то:

...

var count_pl, count_min, sum_pl, sum_min: integer;

begin

count_pl:=0;

count_min:=0;

sum_pl:=0;

sum_min:=0;

for i:=1 to n do begin

if a[i] > 0 then begin

count_pl:= coun_pl + 1;

sum_pl:= sum_pl + a[i];

end

else begin

count_min:= count_min + 1;

sum_min:= sum_min + a[i];

end;

end;

writeln('Среднее положительное: ', sum_pl/count_pl);

writeln('Среднее отрицательное: ', sum_min/count_min);

end.

Sobsrhjj
Sobsrhjj
4,6(51 оценок)
Компьютерная графика  – это наука, один из разделов информатики, изучающая способы формирования и обработки изображений с компьютера.компьютерная графика  является одним из наиболее «молодых» направлений информатики, она существует около 40 лет.

Популярно: Информатика