Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы - Pascal ABC
Формулировка задачи:
Решение задачи: «Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы»
const
mx = 4;
nx = 3;
var
M:array[1..mx] of integer;
z:array[1..nx,1..mx] of integer;
i, j, k: integer;
begin
writeln('Исходный массив');
for i:=1 to nx do
begin
for j:=1 to mx do
begin
z[i,j]:=random(18) - 9;
write(z[i,j]:3);
end;
writeln;
end;
for i:=1 to mx do
begin
k:=0;
for j:=1 to nx do
if z[j,i] < 0 then
inc(k);
M[i]:=k;
end;
writeln('Вектор М');
for i:=1 to mx do
write(M[i]:2);
end.
Объяснение кода листинга программы
В данном коде создается вектор М, который будет содержать количество отрицательных элементов каждого столбца матрицы. Для этого используется массив z, где каждый элемент представляет собой количество отрицательных элементов в соответствующем столбце. Сначала выводится исходный массив, где каждый элемент случайным образом устанавливается в отрицательное значение от -9 до 9. Затем происходит подсчет количества отрицательных элементов в каждом столбце и сохранение этих значений в векторе М. Для каждого столбца матрицы вычисляется количество отрицательных элементов, и это значение сохраняется в соответствующий элемент вектора М. В конце выводится вектор М, где каждый элемент содержит количество отрицательных элементов в соответствующем столбце.