Question

Нужна прога в паскале. Даю 20 б Подсчитать количество положительных элементов в каждом столбце матрицы размером МхN. элементы которой задаются с помощью датчика случайных чисел на интервале [-30; 40].

Answer 1

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(71)-30;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Write('Номер столбца: ');
For j:= 1 to N do
    Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
    Begin
    k:=0;
    For i:= 1 to M do
        if A[i,j]>0 then k:=k+1;
    Write(k:3,' ');
    End;
End.

Пример:
Исходный массив:
 33 -21 -24   4
-20  28 -29  25
-15  -1  11   3
Номер столбца:   1   2   3   4
Искомое кол-во:  1   1   1   3

Answer 2

Конечно, вот пример программы на языке Pascal, который решает вашу задачу:

pascalCopy code
program CountPositiveElements;

const
  M = 5; // Количество строк матрицы
  N = 4; // Количество столбцов матрицы

type
  Matrix = array[1..M, 1..N] of Integer;

var
  matrix: Matrix;
  positiveCounts: array[1..N] of Integer;
  i, j: Integer;

// Заполняет матрицу случайными числами
procedure FillMatrix(var mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to M do
    for j := 1 to N do
      mat[i, j] := Random(71) - 30; // Генерируем случайное число в интервале [-30; 40]
end;

// Подсчитывает количество положительных элементов в каждом столбце
procedure CountPositiveElements(const mat: Matrix; var counts: array of Integer);
var
  i, j: Integer;
begin
  for j := 1 to N do
  begin
    counts[j] := 0; // Обнуляем счетчик для текущего столбца
    for i := 1 to M do
    begin
      if mat[i, j] > 0 then
        Inc(counts[j]);
    end;
  end;
end;

// Выводит матрицу на экран
procedure PrintMatrix(const mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(mat[i, j]:5);
    Writeln;
  end;
end;

// Выводит количество положительных элементов в каждом столбце
procedure PrintPositiveCounts(const counts: array of Integer);
var
  j: Integer;
begin
  Writeln('Количество положительных элементов в каждом столбце:');
  for j := 1 to N do
    Write(counts[j]:5);
  Writeln;
end;

begin
  Randomize; // Инициализируем генератор случайных чисел
  FillMatrix(matrix);
  
  Writeln('Исходная матрица:');
  PrintMatrix(matrix);
  
  CountPositiveElements(matrix, positiveCounts);
  
  PrintPositiveCounts(positiveCounts);
end.

Программа создает матрицу заданного размера, заполняет её случайными числами в указанном интервале, затем подсчитывает количество положительных элементов в каждом столбце и выводит результат на экран. Обратите внимание, что размеры матрицы (M и N) и интервал случайных чисел можно настроить по вашему усмотрению.