Программа проверяет наличие искомого пользователем элемента в массиве случайных чисел.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program arrays_7; uses crt; var n, i, x: integer; b: boolean; A: array[1..100] of integer; begin clrscr; randomize; write(‘Количество элементов > ‘); read(n); write(‘Искомый элемент > ‘); read(x); b:=false; for i:=1 to n do begin A[i]:=random(15); write(A[i],‘ ‘); if A[i]=x then b:=true; end; writeln; if b then write(‘Элемент со значением ‘, x, ‘ имеется’) else write(‘Элемент со значением ‘, x, ‘ не имеется’); readkey; end. |
Я уже 3 года торгую фьючерсами на Bybit и приглашаю тебя присоединиться и получить до $30 000 бонусами плюс скидки на комиссии:
Зарегистрироваться на Bybit
Чем больше депозит – тем больше бонусов. Также моим рефералам доступны торговые боты для трейдинга по самым выгодным тарифам.