Сформировать новый массив, являющийся остатками от деления первого массива на второй - 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.

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

  1. В начале программы объявляются три массива: a, b и c, каждый из которых содержит 17 элементов типа integer.
  2. Затем объявляется переменная i, которая будет использоваться в цикле.
  3. Цикл for выполняется для каждого элемента массива a.
  4. Внутри цикла для каждого элемента массива a генерируется случайное число от 1 до 16 и присваивается соответствующему элементу массива a.
  5. Аналогично, для каждого элемента массива a генерируется случайное число от 1 до 16 и присваивается соответствующему элементу массива b.
  6. Для каждого элемента массива a вычисляется остаток от деления элемента массива a на элемент массива b и присваивается соответствующему элементу массива c.
  7. Затем выводится на экран значение каждого элемента массива a, затем значение каждого элемента массива b, затем значение каждого элемента массива c.
  8. Вывод на экран выполняется с помощью функции writeln, которая принимает три аргумента: первый - адрес строки, второй - адрес строки, третий - адрес строки. Аргументы разделяются двоеточием.

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

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