Напишите программу для решения следующей .девятиклассники участвовали в викторине по . необходимо было ответить на 20 вопросов. победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. на сколько вопросов победитель ответил правильно? если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите yes, иначе выведите no. гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов.программа получает на вход число участников викторины n (1 ≤ n ≤ 50), затем для каждого участника вводится количество вопросов, на которые получен правильный ответ. пример работы программы: входные данные 4 15 12 0 17 выходные данные 17 yes
Lubimka01
2
11.09.2019 06:50
17
Другие вопросы по теме Информатика
Abdulla2009
07.09.2019 03:30
Изачка
07.09.2019 03:30
iae1512p0dn07
07.09.2019 03:30
Alenadobro97
28.12.2020 10:14
olgastavovaya1
28.12.2020 10:16
novakk020
14.07.2019 02:10
dgotshalk
09.02.2021 16:24
Masha36127
09.02.2021 16:24
karpovkonstanti
11.05.2020 13:22
katerinaplachet
11.05.2020 13:22
Популярные вопросы
- Озеро Баскунчак богато солью Выпиши из предложений приложения с определяемым словом,...
2 - 31. Задание 1 No 421 Перепишите текст 1, раскрывая скобки, вставляя, где это необходимо,...
1 - в начале XIX века При проверке интерданского склада где хранились солдатские оловянные...
1 - Записати рівняння електролітичнох дисоціаціх таких електролітів. Розпишіть на листку...
1 - Англ решить,то что не правильно...
1 - Укажи соответствие между признаками и типом червей, для которого они характерны (запиши буквы, обозначающие...
2 - Які ідеї утверджуються в творі Айвенго?...
1 - Юрко Сашко і Оленка купили разом енцеклопедичний довідник.Юрко заплатив 7/16 вартості...
2 - Пружина скрепляет два тела с массами m и М. Когда система подвешена за верхний груз,...
2 - Обществознание написать 5 примеров навыков...
2
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.