Question

Срочно! Помогите! Написать программу в турбо паскале Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы. Пример: Исходный массив: 4 0 1 2 0 1 3 1 1 0Заранее огромное спасибо!!!!

Answer 1

var 

  a: array [1..10] of integer;  //Массив из 10 целочисленных элементов

  i: integer;

begin

  write('Исходный массив: ');

  for i:= 1 to 10 do  {Заполняем массив случайными числами от 0 до 4 и печатаем его}

  begin

    a[i]:= random(4);

    write(a[i], '  ');

  end;

  writeln;  //Перевод на новую строку

  write('Одинаковые соседние элементы:  ');

  for i:= 1 to 9 do  //Печатаем одинаковые соседние элементы

    if a[i] = a[i + 1] then write('a[', i, '] = a[', i + 1, '],  ');

  writeln;  {Перевод на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end. 

Answer 2

Конечно, я могу помочь вам написать программу на Turbo Pascal для заполнения массива случайными числами и определения наличия одинаковых соседних элементов. Вот пример программы:

program CheckArray;

const
  SIZE = 10; // Размер массива
  MIN_VALUE = 0; // Минимальное значение случайного числа
  MAX_VALUE = 4; // Максимальное значение случайного числа

var
  arr: array[1..SIZE] of Integer; // Объявление массива
  i: Integer; // Переменная для цикла
  hasDuplicates: Boolean; // Флаг для определения наличия одинаковых соседних элементов

begin
  Randomize; // Инициализация генератора случайных чисел

// Заполнение массива случайными числами
  for i := 1 to SIZE do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

// Проверка наличия одинаковых соседних элементов
  hasDuplicates := False;
  for i := 2 to SIZE do
  begin
    if arr[i] = arr[i - 1] then
    begin
      hasDuplicates := True;
      Break;
    end;
  end;

// Вывод результатов
  Writeln('Исходный массив:');
  for i := 1 to SIZE do
    Write(arr[i], ' ');

if hasDuplicates then
    Writeln('В массиве есть одинаковые соседние элементы.')
  else
    Writeln('В массиве нет одинаковых соседних элементов.');

Readln;
end.

В этой программе мы используем генератор случайных чисел `Randomize` для заполнения массива `arr` случайными числами в заданном интервале. Затем мы проверяем каждый элемент массива на равенство с предыдущим элементом, чтобы определить, есть ли одинаковые соседние элементы. Если такие элементы найдены, устанавливаем флаг `hasDuplicates` в значение `True`. В конце программы выводим исходный массив и сообщение о наличии или отсутствии одинаковых соседних элементов.

Примечание: Убедитесь, что ваша среда разработки Turbo Pascal настроена правильно и может компилировать и запускать программы на Pascal.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.