Найти число положительных элементов каждой строки и найдите минимальный из них - 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 и выполняет следующие действия:

  1. Запрашивает у пользователя количество строк и столбцов для создания матрицы.
  2. Создает матрицу случайных чисел от -10 до 10.
  3. Инициализирует вектор v, который будет использоваться для подсчета количества положительных чисел в каждой строке.
  4. Проходит по каждой строке матрицы и увеличивает значение вектора v, если текущий элемент матрицы положительный.
  5. Находит минимальное значение в векторе v и выводит его на экран.

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

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