Question

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

Answer 1

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
Есть такой элемент

Answer 2

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 3

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

pythonCopy code
# Создаем массив S[10]
S = [0] * 10

# Вводим значения массива с клавиатуры
for i in range(10):
    S[i] = int(input(f"Введите значение для S[{i}]: "))

# Вводим значение N с клавиатуры
N = int(input("Введите значение N: "))

# Проверяем наличие элемента в массиве
if N in S:
    print(f"Элемент {N} найден в массиве.")
else:
    print(f"Элемента {N} нет в массиве.")

# Выводим массив и результат на экран
print("Массив S:", S)

Просто вставьте этот код в свою среду разработки или исполните его в интерпретаторе Python, и он выполнит необходимую задачу.