Question

Паскаль. Заменить все числа которые кратные 3 и не кратны 6 на 1

Answer 1

var

   n : integer; // длина мвссива

   a : integer; // количество замен

   

begin

   write('введите длину массива ');

   readln(n);

   var d : array of integer := new integer[n]; // создаем массив длиной n

   d := ArrRandom(n, 6, 100); // заполняем массив случайными числами от 6 до 100

   writeln('был сгенерирован массив ', d);

   for var i := 0 to n-1 do begin

       if (d[i] mod 3 = 0) and (d[i] mod 6 <> 0) then begin  // проверяем содержимое ячейки массимассива на условие задачи

           d[i] := 1; // заменяем значение ячейки на 1

           a += 1; // увеличиваем счетчик количества замен на 1

       end;

   end;

   writeln('массив после замены ', d);

   writeln('было произведено замен ', a);

end.

итак...

генерируем массив указанной длины n

заполняем его случайными числами в диапозоне 6..100

так как паскаль нумерует ячейки массива начиная с 0 то задаем цикл от 0 до n-1

проверяем значение ячеек на соответствие условию

для этого делим значение на число и смотрим поделилось без остатка значит кратно ему, поделилось с остатком значит не кратно.

если соответствует условию то меняем значение на 1 и увеличиваем счетчик количества замен на 1

выводим сам массив и количество произведенных замен.

Answer 2

Для замены чисел, которые кратны 3 и не кратны 6 на число 1 в Pascal, вы можете использовать следующий код:

pascalCopy code
program ReplaceNumbers;

var
  i, n: Integer;
  arr: array[1..10] of Integer; // Здесь предположим, что у вас массив из 10 элементов

begin
  // Заполните массив произвольными значениями для примера
  for i := 1 to 10 do
  begin
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99
    Write(arr[i], ' ');
  end;

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

  // Проходим по массиву и заменяем числа, которые кратны 3 и не кратны 6, на 1
  for i := 1 to 10 do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] mod 6 <> 0) then
      arr[i] := 1;
    Write(arr[i], ' ');
  end;

  Readln;
end.

Обратите внимание, что в данном примере используется массив из 10 элементов (от 1 до 10). Вы можете изменить размер массива в соответствии с вашими потребностями. Программа заполняет массив случайными значениями, затем заменяет указанные числа и выводит исходный и измененный массивы на экран.