Напишите программу для решения следующей .девятиклассники участвовали в викторине по . необходимо было ответить на 20 вопросов. победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. на сколько вопросов победитель ответил правильно? если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите yes, иначе выведите no. гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов.программа получает на вход число участников викторины n (1 ≤ n ≤ 50), затем для каждого участника вводится количество вопросов, на которые получен правильный ответ. пример работы программы: входные данные 4 15 12 0 17 выходные данные 17 yes
102
410
Ответы на вопрос:
Pascalanc.net varmax1,max2: integer; k: string; beginvar n: =readinteger(); k: ='no'; read(max1); for var i: =1 to n-1 do beginread(max2); if (max1=0) or (max2=0) thenk: ='yes'; if max1< max2 thenmax1: =max2; end; print(max2,k); end.
Популярно: Информатика
-
vilkinakarina09.12.2022 05:29
-
tibeck12020.06.2023 17:37
-
Happyunicorn2801.01.2021 14:48
-
Dima9889108.10.2020 06:15
-
209439an01.12.2020 10:25
-
НацуЛюси19.04.2023 22:32
-
Ibra466002.03.2022 01:02
-
fgydsgfgysa26.12.2020 23:20
-
1ПИНЧЕР131.05.2022 07:47
-
brekisbrekis08.09.2020 05:20