Написать программу которая задает с клавиатуры рост 10 спортсменов из диапазона от 150 до 200см считает количество спортсменов рост которых больше 190см а также средний рост всех спортсменов
275
318
Ответы на вопрос:
Var a: array [1..10] of integer; i, s, k: integer; begin for i: =1 to 10 do begin writeln('рост спортсмена №',i,': '); readln(a[i]); if a[i] > 190 then k: =k+1; s: =s+a[i]; end; writeln(k, ' спортсмена(-ов) рост, которых составляет более 190 см.'); writeln('средний рост всех спортсменов составляет ', s/10,' см.'); end.
Популярно: Информатика
-
onexochu26.07.2022 06:58
-
opamaks2328.01.2022 15:50
-
olegyagubov0116.07.2021 09:05
-
vovasherbak200307.05.2020 14:40
-
айка39510.02.2022 09:19
-
помощьнужнв12.10.2021 15:49
-
BigBOSS228118.01.2022 13:04
-
RaminaMirzaeva19.06.2021 07:36
-
Kaytha06.06.2020 09:18
-
nikitamany8722.05.2023 08:47