Yes. Ну там есть такой участник.
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Yes. Ну там есть такой участник.
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.