Дана квадратная матрица.

Произвести инвертирование (переворот) элементов нечетных строк

program p3;

const N=4;

Var

A:array[1..N,1..N] of real;

I,J,B:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR I:=1 TO N DO

IF I MOD 2 <>0 THEN

FOR J:=1 TO N DIV 2 DO

BEGIN

B:=A[I,J];

A[I,J]:=A[I,N-J+1];

A[I,N-J+1]:=B;

END;

WRITELN('vIvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

WRITE(A[I,J],' ');

WRITELN;

END;

readln;

readln;

End.

Дана квадратная матрица.

Найти произведение элементов, кратных семи и

Расположенных на соседних двух диагоналях, параллельных главной

program p4;

const N=4;

Var

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

I,J,P:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

P:=1;

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF (ABS(I-J)=1) AND (A[I,J] MOD 7 = 0) THEN

P:=P*A[I,J];

WRITELN('vIvod P');

WRITE(P);

readln;

readln;

End.

Дана квадратная матрица.

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

program p5;

const N=4;

Var

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

I,J,max:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

max:=A[N,N];

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF (I+J>N+1) AND (A[I,J] >MAX) THEN

MAX:=A[I,J];

WRITELN('vIvod MAX');

WRITE(MAX);

readln;

readln;

End.

Дана квадратная матрица.

Найти минимальное значение среди элементов, расположенных выше главной диагонали

program p6;

const N=4;

Var

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

I,J,MIN:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

mIN:=A[1,1];

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF (J>I) AND (A[I,J] <MIN) THEN

MIN:=A[I,J];

WRITELN('vIvod MIN');

WRITE(MIN);

readln;

readln;

End.