Question

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

Answer 1

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

Answer 2

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.