Определить, есть ли в массиве элементы с одинаковыми значениями, не обязательно стоящие рядом - 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 элементы с одинаковыми значениями, не обязательно стоящие рядом.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы