Регистрация
Войти
Стать экспертом Правила
Информатика

Имеется массив А (1.h). Найти элемент массива, равный P

ОТВЕТЫ



begin
  var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
  var p:=ReadInteger('P=');
  var i:=a.FindIndex(t->t=p);
  if i>=0 then Writeln('Номер элемента ',i+1)
  else Writeln('Нет такого элемента')
end.


h= 20
-57 15 -50 89 -25 -85 -75 12 57 92 61 1 36 -78 4 -1 30 12 16 -71
P= 66
Нет такого элемента

h= 13
15 86 57 69 -58 -78 -20 14 -63 -92 -16 -40 73
P= 14
Номер элемента 8
233
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам