Question

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

Answer 1

#код написан на Ruby
def zadanie(k,ns)
    ns.each { |n_element|
        return "true" if n_element < k
    }
    return "Falk"

end

#примеры вызыва
p zadanie(10, [11,12,13,14,15])
p zadanie(10, [10,11,12,13,14,15])
p zadanie(10, [9,10,11,12,13,14,15])

Answer 2

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