Помогите пожалуйста с задачей. Язык Паскаль.
На доске с результатами олимпиады висят списки участников и количество решенных задач. Всего 18 участников. Проверьте, есть ли хоть один человек, который решил 19 задач, если есть – вывести «Yes», иначе – «No».
Формат ввода: Пример ввода: Пример ввода:
a[1] - результат первого участника
a[2] - результат второго участника
a[3] - результат третьего участника
a[4] - результат четвертого участника
a[5] - результат пятого участника
a[6] - результат шестого участника
a[7] - результат седьмого участника
a[8] - результат восьмого участника
a[9] - результат девятого участника
a[10] - результат десятого участника
a[11] - результат одиннадцатого участника
a[12] - результат двенадцатого участника
a[13] - результат тринадцатого участника
a[14] - результат четырнадцатого участника
a[15] - результат пятнадцатого участника
a[16] - результат шестнадцатого участника
a[17] - результат семнадцатого участника
a[18] - результат восемнадцатого участника 3
14
8
9
3
2
15
16
8
1
0
15
6
7
8
9
19
18 3
1
12
4
9
11
1
1
1
1
1
1
1
1
0
18
10
12
Формат вывода: Пример вывода: Пример вывода:
Yes/No - есть участник / нет Yes No
Ответы на вопрос
Ответил e0305k
1
var
a: array [1..18] of integer;
y: boolean := false;
begin
for var i: integer := 1 to 18 do
Readln(a[i]);
for var i: integer := 1 to 18 do
if(a[i] = 19) then
begin
y := true;
break;
end;
if y then Writeln('Yes')
else Writeln('No');
end.
Приложения:
prozorovkirill62:
не правильно
я отправил на сайте мне написало ошибка компиляции
Я убрал комментарии, теперь попробуй. У меня в компиляторе Pascal ABC.NET всё хорошо работает.
сейчас вообще ошибки
Убрал все ненужные пробелы, прикрепил файл с кодом
не правильно
Ну тогда делай сам. Я проверял - всё работало, если хотя-бы в одном из элементов было 19 выводило Yes.
Новые вопросы