Массив: Определить, есть ли в этой таблице хотя бы одно число кратное 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, чтобы пользователь мог ввести данные для следующего запуска программы.