Ответы на вопрос:
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.
Популярно: Информатика
-
KatiaSur10.07.2020 16:29
-
gumballl131.10.2020 12:29
-
alisabugor01.01.2023 06:46
-
диманназаров01.06.2021 18:54
-
ЕсенжоловаЛяззат05.08.2020 00:12
-
Розалиндами77730.05.2021 18:59
-
Whitecat11125.01.2021 20:36
-
Kat1116608.09.2021 06:19
-
djein200706.08.2020 11:06
-
Незнайка009124.05.2020 08:02