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

FOR J:=1 TO N DO

IF I+J<N+1 THEN

BEGIN

B:=A[I,J];

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

A[N+1-J,N+1-I]:=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 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.

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

Найти максимальное значение среди ее элементов,

расположенных: в первой и последней строках, первом и последнем столбцах,

на главной и побочной диагоналях

program p7;

const N=5;

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[1,1];

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF (I=1) OR (I=N) OR (J=1) OR (J=N) OR (I=J) OR (I+J=N+1) THEN

IF A[I,J]>MAX THEN

MAX:=A[I,J];

WRITELN('vIvod MAX');

WRITE(MAX);

readln;

readln;

end.

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

Вычислить среднее арифметическое значение среди ее элементов,

расположенных в четных строках и нечетных столбцах.

program p8;

const m=4;n=5;

var

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