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