Сформировать новый массив, являющийся остатками от деления первого массива на второй - Turbo Pascal
Формулировка задачи:
Задать два целочисленных массива одинакового размера (не более 17 элементов)
Вывести исходные элементы на экран.
Сформировать новый массив, являющийся остатками от деления первого массива на второй.
Решение задачи: «Сформировать новый массив, являющийся остатками от деления первого массива на второй»
textual
Листинг программы
const n = 17; var a, b, c: array[1..n] of integer; i: integer; begin randomize; for i := 1 to n do begin a[i] := random(n) + 1; b[i] := random(n) + 1; c[i] := a[i] mod b[i]; writeln(a[i]:4, b[i]:4, c[i]:4); end; end.
Объяснение кода листинга программы
- В начале программы объявляются три массива:
a
,b
иc
, каждый из которых содержит 17 элементов типа integer. - Затем объявляется переменная
i
, которая будет использоваться в цикле. - Цикл for выполняется для каждого элемента массива
a
. - Внутри цикла для каждого элемента массива
a
генерируется случайное число от 1 до 16 и присваивается соответствующему элементу массиваa
. - Аналогично, для каждого элемента массива
a
генерируется случайное число от 1 до 16 и присваивается соответствующему элементу массиваb
. - Для каждого элемента массива
a
вычисляется остаток от деления элемента массиваa
на элемент массиваb
и присваивается соответствующему элементу массиваc
. - Затем выводится на экран значение каждого элемента массива
a
, затем значение каждого элемента массиваb
, затем значение каждого элемента массиваc
. - Вывод на экран выполняется с помощью функции writeln, которая принимает три аргумента: первый - адрес строки, второй - адрес строки, третий - адрес строки. Аргументы разделяются двоеточием.