Предмет: Информатика,
автор: мимпрррр
Напишите программу для решения следующей задачи.Девятиклассники участвовали в викторине по математике. Необходимо было ответить на 20 вопросов. Победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. На сколько вопросов победитель ответил правильно? Если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите YES, иначе выведите NO. Гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов.Программа получает на вход число участников викторины N (1 ≤ N ≤ 50), затем для каждого участника вводится количество вопросов, на которые получен правильный ответ. Пример работы программы:Входные данные 4 15 12 0 17 Выходные данные 17 YES
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Var
max1,max2:integer;
k:string;
begin
Var n:=ReadInteger();
k:='NO';
read(max1);
for var i:=1 to n-1 do begin
read(max2);
if (max1=0) or (max2=0) then
k:='YES';
if max1<max2 then
max1:=max2;
end;
print(max2,k);
end.
max1,max2:integer;
k:string;
begin
Var n:=ReadInteger();
k:='NO';
read(max1);
for var i:=1 to n-1 do begin
read(max2);
if (max1=0) or (max2=0) then
k:='YES';
if max1<max2 then
max1:=max2;
end;
print(max2,k);
end.
Похожие вопросы
Предмет: Литература,
автор: goodlipilina
Предмет: Английский язык,
автор: tanapilipenko222
Предмет: Литература,
автор: rodionrakhmanow
Предмет: Химия,
автор: bmlove01
Предмет: Математика,
автор: 89544368118