< >

Помогите решить эту задачу

Приложения:

Ответы

Ответ дал: deriabinalil
0

Yes. Ну там есть такой участник.

Ответ дал: elenaklon
0

var a:array [1..18] of integer;

i,k:integer;

begin

for i:=1 to 18 do read (a[i]);

for i:=1 to 18 do if a [i] = 19 then k:=k+1;

if k>0 then write ('YES') else write ('NO')

end.

Похожие вопросы
Английский язык
2 года назад
Национальная казахская еда на английском с переводом
Қазақ тiлi
2 года назад
разобрать слово суретші по падежам на каз.яз
Математика
2 года назад
На рисунке найдите ∠1, если ∠2 = 112°; ∠3 = 39°;∠ = 141°.
Математика
2 года назад
Расположить в порядке убывания: -√23 ; 0 ; -3 ; -√5 ; 6 ; √45 Можно пожалуйста с обьяснением
Математика
8 лет назад
үш дос нөмірі 34,36 және 38-үйлерде тұрады. Олардың шаштары: қоңыр, сары, қара түсті. Сары шашты бала нөмірі 4-ке бөлінетін үйде тұрады. Ал қоңыр шашты баланың үйінің нөміріндегі цифрлардың
География
8 лет назад
используя приведённые табличные данные постройте график изменения температур за указанный период (День наблюдения: 1 2 3 4 5 6 7 8 9 Температура воздуха, С: 5 0 -3 -1 3 4 7 10 5 )
Физика
9 лет назад
Ядро какова атома состаит только из одной частицы
Информатика
9 лет назад
Контейнер для файлов 5 букв