Question

Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и определяет если в этом массиве хотя бы одно число кратное трём? Паскаль

Answer 1

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(16, -20, 20);

 a.Println;

 if a.Any(t -> t mod 3 = 0) then Print('Есть')

 else Print('Нет')

end.

Пример

-13 3 14 -9 -12 -10 -4 19 -19 5 -5 9 0 -10 -19 3

Есть

Answer 2

Для составления программы на языке Паскаль, которая формирует массив из 16 случайных целых чисел от -20 до 20 и определяет, есть ли хотя бы одно число, кратное трём, выполните следующие шаги:

1. Объявите переменные и массивы.
2. Заполните массив случайными числами.
3. Проверьте каждый элемент массива на кратность трём.
4. Если хотя бы одно число кратно трём, выведите сообщение об этом.

Вот пример кода:

pascalCopy code
program CheckArrayForMultipleOfThree;

const
  ARRAY_SIZE = 16;
  MIN_VALUE = -20;
  MAX_VALUE = 20;

var
  arr: array[1..ARRAY_SIZE] of integer;
  i: integer;
  found: boolean;

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

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

  // Печать сгенерированного массива
  writeln('Сгенерированный массив:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i]:4);

  // Проверка наличия чисел, кратных трём
  found := false;
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] mod 3 = 0 then
    begin
      found := true;
      break; // Прерываем цикл, как только нашли одно кратное трём число
    end;
  end;

  // Вывод результата
  if found then
    writeln('В массиве есть число, кратное трём.')
  else
    writeln('В массиве нет чисел, кратных трём.');

  readln;
end.

Программа создаст массив из 16 случайных чисел, выведет его на экран и сообщит, есть ли хотя бы одно число, кратное трём.