const n = 3; var i, a, count, s: integer; begin for i := 1 to n do begin readln(a); if(a < 0) then begin s := s + a; inc(count); end; end; writeln(s/count); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
