Найти количество положительных элементов матрицы, расположенных ниже главной диагонали - Turbo Pascal

Узнай цену своей работы

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

Дан целочисленный массив (1..3,1..5) найти количество положительных элементов этого массива,расположенных ниже главной диагонали

Решение задачи: «Найти количество положительных элементов матрицы, расположенных ниже главной диагонали»

textual
Листинг программы
  1. uses crt;
  2. const m=3;
  3.       n=5;
  4. var a:array[1..m,1..n] of integer;
  5.     i,j,k:integer;
  6. begin
  7. clrscr;
  8. randomize;
  9. k:=0;
  10. writeln('Исходная матрица:');
  11. for i:=1 to m do
  12.  begin
  13.   for j:=1 to n do
  14.    begin
  15.     a[i,j]:=-25+random(51);
  16.     write(a[i,j]:4);
  17.     if (j<i)and(a[i,j]>0) then k:=k+1;
  18.    end;
  19.   writeln;
  20.  end;
  21. write('Количество положительных нмже главной диагонали=',k);
  22. readln
  23. end.

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

  1. В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
  2. Затем определяются две константы: m и n. Переменная m инициализируется значением 3, а переменная n инициализируется значением 5. Эти значения представляют собой размеры матрицы, которую мы будем заполнять.
  3. Далее объявляется переменная a типа array[1..m,1..n] of integer. Эта переменная представляет собой матрицу размером m на n, в которой каждый элемент имеет тип integer.
  4. Затем объявляются три переменные: i, j и k. Эти переменные будут использоваться для итерации по матрице и подсчета количества положительных элементов.
  5. В блоке begin выполняется цикл for i:=1 до m do, который перебирает все элементы матрицы по строкам.
  6. Внутри цикла выполняется еще один цикл for j:=1 до n do, который перебирает все элементы матрицы по столбцам.
  7. Внутри второго цикла переменная a[i,j] инициализируется значением -25+random(51), что генерирует случайное число от -25 до 50 для каждого элемента матрицы.
  8. Затем выполняется операция write(a[i,j]:4), которая выводит значение элемента a[i,j] в консоль.
  9. Если значение элемента a[i,j] положительное и находится ниже главной диагонали (т.е. j меньше i), то переменная k увеличивается на 1.
  10. После завершения второго цикла выполняется операция write('Количество положительных нмже главной диагонали=',k), которая выводит количество положительных элементов ниже главной диагонали в консоль.
  11. Наконец, функция readln() вызывается для чтения ввода пользователя и завершения программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы