Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14 - Turbo Pascal

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

Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14. Определить количество пар Р(9) элементов матрицы Y в каждом столбце таких, что Y(I-1, J)*Y(I, J)<0. Матрицу Y, массив Р, а также все попарные произведения вывести.

Решение задачи: «Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14»

Листинг программы

uses crt;
const m=6;
      n=9;
var y:array [1..m,1..n] of integer;
    p:array [1..n] of integer;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Матрица Y');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    y[i,j]:=-10+random(25);
    write(y[i,j]:4);
   end;
  writeln;
 end;
writeln('Массив P');
for j:=1 to n do
 begin
  p[j]:=0;
  for i:=2 to m do
  if y[i-1,j]*y[i,j]<0 then inc(p[j]);
  write(p[j]:4);
 end;
readln
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания и выполнения программ на компьютере. В первой строке кода подключается библиотека crt, которая содержит функции для работы с памятью и вводом-выводом. Далее определяются две переменные: m и n. Переменная m имеет тип byte и равна 6, а переменная n также имеет тип byte и равна 9. Эти значения представляют размеры матрицы Y, которые заданы в задаче. После этого определяется переменная y, которая является массивом целых чисел размером m x n. Затем определяются две переменные: i и j, которые имеют тип byte. Они будут использоваться для итерации по матрице Y и массиву p. Внутри первого цикла for i:=1 до m do происходит итерация по строкам матрицы Y. В каждой итерации выполняется цикл for j:=1 до n do, который представляет собой итерацию по столбцам матрицы Y. Внутри этого второго цикла происходит заполнение матрицы Y случайными числами в диапазоне от -10 до 14. Каждое число записывается в соответствующую ячейку матрицы Y. После завершения итераций по матрице Y выполняется второй цикл for j:=1 до n do, который представляет собой итерацию по столбцам массива p. Внутри этого цикла проверяется условие, что произведение элементов матрицы Y меньше 0. Если это условие выполняется, то значение элемента массива p увеличивается на единицу. Затем значение элемента записывается в соответствующую ячейку массива p. После завершения итераций по массиву p выводится сообщение Матрица Y и все значения элементов матрицы Y. Затем выводится сообщение Массив P и все значения элементов массива p. Код завершается командой readln, которая ожидает ввода пользователя и затем завершает программу.