Ответы на вопрос:
Program maximum; var a, max, k, i: integer; begin max: =0; k: =0; for i: =1 to 4 do begin readln(a); if (a > max) then begin max: =a; k: =1; end else begin if (a = max) then k: =k+1; end; end; end; writeln(max,k); end.
Популярно: Информатика
-
жанат1711.02.2023 01:33
-
mlpfim200419.08.2022 22:09
-
СофьяШафоростова10.06.2021 17:06
-
sofa37204.03.2020 06:48
-
dary09007.02.2022 09:17
-
sabina30021.08.2022 00:46
-
movsisjan8804.06.2020 19:29
-
olechkapushkareva25.06.2021 08:48
-
Женечка18051002.06.2023 08:19
-
artem2006voskanyan30.08.2021 02:52