Массив: Определить, есть ли в этой таблице хотя бы одно число кратное k. - Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Массив: Определить, есть ли в этой таблице хотя бы одно число кратное k.»

textual
Листинг программы
const
  size = 10;  {размер массива}
 
var
  x: array [1..size] of integer;
  i: byte;
  k: integer;
 
begin
  Randomize;
  for i := 1 to size do
  begin
    x[i] := Random(100);
    Write(x[i], ' ')
  end;
  WriteLn;
  repeat Write('Введите K > 0: '); ReadLn(k); until k > 0;
  WriteLn('Элементы массива, кратные K:');
  for i := 1 to size do
    if x[i] mod k = 0 then
      Write(x[i], ' ');
  ReadLn
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

  • size - размер массива (равен 10);
  • x - массив целых чисел размером 10;
  • i - байт (используется для цикла);
  • k - целое число (используется для проверки на кратность); Сначала в цикле сгенерированы случайные числа от 0 до 99 для каждого элемента массива x. Затем пользователю предлагается ввести значение k, которое должно быть больше 0. После этого происходит повторное чтение значения k до тех пор, пока оно не станет положительным. Затем идет цикл, в котором проверяется каждый элемент массива x на кратность k. Если остаток от деления элемента на k равен 0, то этот элемент выводится на экран. В конце программа завершается вызовом функции ReadLn, чтобы пользователь мог ввести данные для следующего запуска программы.

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

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