Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.

Question

Информатика

Игуся

9 августа, 02:18

Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.

+3

Ответы (1)

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

Маргаритка · Answer 1

Var

i, k, n, a1:integer;

begin

readln (n) ;

readln (a1) ;

for i:=0 to n-1 do

begin

readln (k) ;

if (a1 = k) then

writeln ("Есть такое число")

else

writeln ("Нет такого числа") ;

end;

end.