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
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])
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