Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы - Pascal ABC

Формулировка задачи:

Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

Код к задаче: «Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы - Pascal ABC»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.100 из 5


СДЕЛАЙТЕ РЕПОСТ