PASCAL.ABC Для целочисленной матрицы G размерности N х M, найти для каждой строки число элементов, равных заданному значению ( N ≤ 10, M ≤ 10 ).

Предыдущий
вопрос Следующий
вопрос

program CountOccurrences;

const
N = 10;
M = 10;

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

var
G: Matrix;
value, i, j: Integer;

procedure InitializeMatrix(var G: Matrix);
var
i, j: Integer;
begin
for i := 1 to N do
for j := 1 to M do
G[i, j] := Random(10); // заполняем матрицу случайными значениями от 0 до 9
end;

function CountOccurrencesInRow(row: array of Integer; value: Integer): Integer;
var
i, count: Integer;
begin
count := 0;
for i := Low(row) to High(row) do
begin
if row[i] = value then
count := count + 1;
end;
CountOccurrencesInRow := count;
end;

begin
Randomize;

InitializeMatrix(G);

writeln('Введите значение, для которого нужно найти количество элементов в строках матрицы:');
readln(value);

for i := 1 to N do
writeln('В строке ', i, ' количество элементов равных ', value, ' равно ', CountOccurrencesInRow(G[i], value));
end.