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

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

program p14;

const m=4;n=5;

Var

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

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

I,J:integer;

MAX: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 J:=1 TO N DO

BEGIN

MAX:=A[1,J];

FOR I:=1 TO M DO

IF A[I,J]>MAX THEN

MAX:=A[I,J];

B[J]:=MAX;

END;

WRITELN('vIvod MASSIVA B');

FOR I:=1 TO N DO

WRITELN(B[I]);

readln;

readln;

End.

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

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

program p15;

const m=4;n=5;

Var

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

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

I,J,JMAX:integer;

MAX: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

MAX:=A[I,1]; JMAX:=1;

FOR J:=1 TO N DO

IF A[I,J]>MAX THEN

BEGIN

MAX:=A[I,J];

JMAX:=J;

END;

B[I]:=JMAX;

END;

WRITELN('vIvod MASSIVA B');

FOR I:=1 TO M DO

WRITELN(B[I]);

readln;

readln;

End.

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

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

Значения которых равно заданному значению

program p16;

const m=4;n=5;

Var

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

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

I,J,K,Z:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

WRITELN('vvod Z');

WRITE(Z);

FOR J:=1 TO N DO

BEGIN

K:=0;

FOR I:=1 TO M DO

IF A[I,J]=Z 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] - равно 1,