Дана прямоугольная матрица.

Найти количество столбцов, в которых все элементы положительные

program p10;

const m=4;n=5;

Var

A:array[1..m,1..N] of INTEGER;

I,J,K,F:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

K:=0;

FOR J:=1 TO N DO

BEGIN

F:=0;

FOR I:=1 TO M DO

IF A[I,J]<= 0 THEN F:=1;

IF F=0 THEN

K:=K+1;

END;

WRITELN('vIvod K');

WRITE(K);

readln;

readln;

End.

Дана прямоугольная матрица.

Построить вектор B, где B[i] - число неотрицательных элементов в i-ой строке.

program p11;

const m=4;n=5;

Var

A:array[1..m,1..N] of INTEGER;

B:ARRAY[1..M] OF INTEGER;

I,J,K:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR I:=1 TO M DO

BEGIN

K:=0;

FOR J:=1 TO N DO

IF A[I,J]>= 0 THEN K:=K+1;

B[I]:=K;

END;

WRITELN('vIvod MASSIVA B');

FOR I:=1 TO M DO

WRITELN(B[I]);

readln;

readln;

End.

Дана прямоугольная матрица.

Построить вектор B, где B[i] - число нулевых элементов в i-ом столбце

program p12;

const m=4;n=5;

Var

A:array[1..M,1..N] of INTEGER;

B:ARRAY[1..N] OF INTEGER;

I,J,K:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR J:=1 TO N DO

BEGIN

K:=0;

FOR I:=1 TO M DO

IF A[I,J]= 0 THEN K:=K+1;

B[J]:=K;

END;

WRITELN('vIvod MASSIVA B');

FOR I:=1 TO N DO

WRITELN(B[I]);

readln;

readln;

End.

Дана прямоугольная матрица.

Построить вектор B, где B[i] - среднее арифметическое

отрицательных элементов в i-ой строке (если отрицательных элементов нет, то B[i]=0).

program p13;

const m=4;n=5;

Var

A:array[1..m,1..N] of REAL;

B:ARRAY[1..M] OF REAL;

I,J,K:integer;

S:REAL;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR I:=1 TO M DO

BEGIN

K:=0;S:=0;

FOR J:=1 TO N DO

IF A[I,J]< 0 THEN

BEGIN

K:=K+1;

S:=S+A[I,J];

END;

IF K=0 THEN

B[I]:=0

ELSE

B[I]:=S/K;

END;

WRITELN('vIvod MASSIVA B');

FOR I:=1 TO M DO

WRITELN(B[I]);

readln;

readln;

End.