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

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

Задать свой вопрос
1 ответ
Var
  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] gt; max then max := arr[i];
    if arr[i] = 0 then v := ' YES';
  end;
  writeln(max, v);
end.

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


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

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

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

Войти на сайт