Ответы на вопрос:
Var eval: array[1..35] of byte; i, good: integer; sr: real; begin good : = 0; sr : = 0; for i : = 1 to 35 do begin write(i, '.) '); readln(eval[i]); sr : = sr + eval[i]; if eval[i] = 5 then inc(good); end; sr : = sr / 35; writeln('всего пятерок: ', good); writeln('средний : ', sr: 0: 2); end.
Популярно: Информатика
-
malini2005.01.2021 00:40
-
никто27313.03.2022 13:28
-
Волк12311101.08.2022 18:01
-
BrookIyn21.10.2021 07:14
-
123456789125201.07.2020 19:27
-
Nastyadavydenko01.03.2020 15:14
-
winx23706.09.2021 14:39
-
Lulu808019.06.2022 20:08
-
hdhdhdhehd23.11.2020 21:09
-
lera31052006923.11.2022 00:52