Выбери правильный ответ.
Взаимно однозначным соответствием множеств является-
146
347
Ответы на вопрос:
Program maxof; var ar: array [1..100] of integer; i, j, posl: shortint; max: integer; begin readln(i); for j: =1 to i do begin readln(ar[j]); end; max: =ar[1]; posl: =1; for j: =2 to i do begin if max = ar[j] then inc(posl); if max < ar[j] then begin posl: =1; max: =ar[j] end; end; writeln(max, ' x', posl); end.
Популярно: Информатика
-
ALDIAR1120.03.2023 05:53
-
Sherlokzn15.12.2021 17:12
-
wwwlikaigor12303.02.2020 03:55
-
Tomi123428.11.2022 01:52
-
Alle96327.08.2022 02:25
-
славка2328.02.2023 06:28
-
sumanrahmatova16.03.2022 18:44
-
doreaan23.02.2022 19:43
-
000конфета00011.08.2020 12:02
-
kiryakuantseva16.03.2022 11:04