Определить, есть ли в массиве элементы с одинаковыми значениями, не обязательно стоящие рядом - Turbo Pascal
Формулировка задачи:
Задача:Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми значениями, не обязательно стоящие рядом. У меня получилось так
Но ответов выходит много. Мне предлагали ввести переменную для количества ответов, но я не совсем понимаю, как это сделать.
Решение задачи: «Определить, есть ли в массиве элементы с одинаковыми значениями, не обязательно стоящие рядом»
textual
Листинг программы
Var A: array[1..10] of integer; i,j,m,k:integer; begin for i:=1 to 10 do begin A[i]:= random(10)+1; writeln('A[',i,']=', A[i]);end; For i:=1 to 10 do For j:=i+1 to 10 do m:=1; if m=1 then writeln('Одинаковые есть') else writeln ('Одинаковых нет'); end.
Объяснение кода листинга программы
В данном коде используется два вложенных цикла for
. Первый цикл идет от 1 до 10, и для каждого индекса i
в массиве A
присваивается случайное число от 1 до 10, затем это число выводится на экран. Второй цикл идет от i+1
до 10, и внутри него переменная m
инициализируется единицей. Если m
равно единице, то выводится сообщение Одинаковые есть
, иначе выводится сообщение Одинаковых нет
.
Таким образом, данный код проверяет, есть ли в массиве A
элементы с одинаковыми значениями, не обязательно стоящие рядом.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д