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