Регистрация
DimitryPanika
28.03.2021 21:14
Информатика
Есть ответ 👍

12321321332213321231123

183
311
Посмотреть ответы 2

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

xhhxjdjdj4
xhhxjdjdj4
4,8(41 оценок)

ответ: If (a=b) or (b=c) or (a=c) then writeln ('Треугольник-равнобедренный')

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.

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