Var k,n,a,i:integer; b:boolean; begin write('k = '); readln(k); write('n = '); readln(n); b:=false; writeln('Введите ',n,' чисел'); for i:=1 to n do begin read(a); if a<k then b:=true; end; if b then writeln(b) else writeln('Falk'); end.
Пример 1: k = 7 n = 5 Введите 5 чисел 15 9 12 8 10 Falk
Пример 2: k = 7 n = 5 Введите 5 чисел 3 6 1 4 5 True
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку