Поиск в массиве одинаковых элементов

      Комментарии к записи Поиск в массиве одинаковых элементов отключены

Главная Форумы Программирование Программирование на Pascal Поиск в массиве одинаковых элементов

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3773

    На языке Pascal проверить есть ли в заполненном случайными числами массиве элементы с одинаковыми значениями.

    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.

Для ответа в этой теме необходимо авторизоваться.