Question

Даны целые числа К, N и набор из N целых чисел Если в наборе присутствует число, меньше К, то вывести true; в противном случае вывести Falk

Answer 1

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