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

Ответы 2

  • var  S: array [1..10] of integer;  i: byte;  n: integer;  flag: boolean = false;beginwrite('N = ');readln(N);for i := 1 to 10 dorepeat  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.
  • 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 13n= 7Есть такой элемент
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years