Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.
Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы