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

Question

Информатика

Лега

31 июля, 04:59

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

+2

Ответы (1)

Знаете ответ на вопрос?

Евдения · 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
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