Напишите программку для решения последующей задачки.Девятиклассники участвовали в викторине по

Напишите программу для решения последующей задачки.Девятиклассники участвовали в викторине по арифметике. Нужно было ответить на 20 вопросов. Победителем викторины считается соучастник, верно ответивший на наивеличайшее количество вопросов. На сколько вопросов фаворит ответил верно? Если есть соучастники викторины, которые не смогли дать верный ответ ни на один из вопросов, выведите YES, иначе выведите NO. Гарантируется, что есть соучастники, правильно ответившие желая бы на один из вопросов.Программа получает на вход число участников викторины N (1 N 50), потом для каждого участника вводится количество вопросов, на которые получен верный ответ.
Пример работы программки:Входные данные 4 15 12 0 17
Выходные данные 17 YES

Задать свой вопрос
1 ответ
Var
    i, k,n, max: integer;
    f:boolean;

begin
    readln(k);
    for i := 1 to k do
    begin
        readln(n);
        if (i = 1) or (max lt; n) then
            max := n;
        f:=f or (n=0);
    end;
    writeln(max,' ', f);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт