Найти количество положительных элементов матрицы, расположенных ниже главной диагонали - Turbo Pascal
Формулировка задачи:
Дан целочисленный массив (1..3,1..5) найти количество положительных элементов этого массива,расположенных ниже главной диагонали
Решение задачи: «Найти количество положительных элементов матрицы, расположенных ниже главной диагонали»
textual
Листинг программы
- uses crt;
- const m=3;
- n=5;
- var a:array[1..m,1..n] of integer;
- i,j,k:integer;
- begin
- clrscr;
- randomize;
- k:=0;
- writeln('Исходная матрица:');
- for i:=1 to m do
- begin
- for j:=1 to n do
- begin
- a[i,j]:=-25+random(51);
- write(a[i,j]:4);
- if (j<i)and(a[i,j]>0) then k:=k+1;
- end;
- writeln;
- end;
- write('Количество положительных нмже главной диагонали=',k);
- readln
- end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
- Затем определяются две константы: m и n. Переменная m инициализируется значением 3, а переменная n инициализируется значением 5. Эти значения представляют собой размеры матрицы, которую мы будем заполнять.
- Далее объявляется переменная a типа array[1..m,1..n] of integer. Эта переменная представляет собой матрицу размером m на n, в которой каждый элемент имеет тип integer.
- Затем объявляются три переменные: i, j и k. Эти переменные будут использоваться для итерации по матрице и подсчета количества положительных элементов.
- В блоке begin выполняется цикл for i:=1 до m do, который перебирает все элементы матрицы по строкам.
- Внутри цикла выполняется еще один цикл for j:=1 до n do, который перебирает все элементы матрицы по столбцам.
- Внутри второго цикла переменная a[i,j] инициализируется значением -25+random(51), что генерирует случайное число от -25 до 50 для каждого элемента матрицы.
- Затем выполняется операция write(a[i,j]:4), которая выводит значение элемента a[i,j] в консоль.
- Если значение элемента a[i,j] положительное и находится ниже главной диагонали (т.е. j меньше i), то переменная k увеличивается на 1.
- После завершения второго цикла выполняется операция write('Количество положительных нмже главной диагонали=',k), которая выводит количество положительных элементов ниже главной диагонали в консоль.
- Наконец, функция readln() вызывается для чтения ввода пользователя и завершения программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д