Проверить есть ли в заполненном случайными числами массиве элементы с одинаковыми значениями.
Решение:
|
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. |