Question

Пожалуйста, помогите, никак не могу решить!
Дан одномерный целочисленный массив S[10]. Значения вводятся с клавиатуры в интервале от -10 до 20. Проверьте есть в массиве элемент, значение которого равно заданному числу N. Значение N вводится с клавиатура. Массив и результат вывести на экран.

Answer 1

var  S: array [1..10] of integer;
  i: byte;
  n: integer;
  flag: boolean = false;
begin
write('N = ');
readln(N);

for i := 1 to 10 do
repeat
  write('S[',i,'] = ');
  readln(S[i]);
until ((S[i] >= -10) and (S[i] <= 20));

write('Исходный массив: ');
for i := 1 to 10 do
begin
  write(S[i], ' ');
  if (S[i] = N) then
    flag := true;
end;

if flag = true then
  writeln(#13 + 'Совпадение найдено.')
else
  writeln(#13 + 'Совпадение не найдено.');

end.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadArrInteger(10);
  var n:=ReadInteger('n=');
  if s.FindIndex(t->t=n)<>-1 then Writeln('Есть такой элемент')
  else Writeln('Такого элемента нет')
end.

Пример
-3 0 12 4 7 -5 -1 -8 6 13
n= 7
Есть такой элемент