Напишите программу для решения следующей .девятиклассники - вопрос №8243726 от Поля200601 23.12.2022 18:50

Question

Информатика: Напишите программу для решения следующей .девятиклассники участвовали в викторине по . необходимо было ответить на 20 вопросов. победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. на сколько вопросов победитель ответил правильно? если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите yes, иначе выведите no. гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов.программа получает

Поля200601 · Answer

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] > max then max := arr[i];
    if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.