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

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

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

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

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;

I,J,K:integer;

S,SR:REAL;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

S:=0; K:=0;

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF (I MOD 2 = 0) AND (J MOD 2 <> 0) THEN

BEGIN

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

K:=K+1;

END;

IF K=0 THEN

WRITELN('TAKIX HET')

ELSE

BEGIN

SR:=S/K;

WRITELN('vIvod SR');

WRITE(SR);

END;

readln;

readln;

End.

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

Поменять местами строки, содержащие наибольший

И наименьший элементы матрицы (все элементы матрицы различны)

program p9;

const m=4;n=5;

Var

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

I,J,MAX,MIN,IMAX,IMIN:integer;

B:REAL;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

MAX:=A[1,1]; IMAX:=1;

MIN:=A[1,1]; IMIN:=1;

FOR I:=1 TO M DO

FOR J:=1 TO N DO

BEGIN

IF A[I,J]>MAX THEN

BEGIN

MAX:=A[I,J];

IMAX:=I;

END;

IF A[I,J]<MIN THEN

BEGIN

MIN:=A[I,J];

IMIN:=I;

END;

END;

FOR J:=1 TO N

BEGIN

B:=A[IMAX,J];

A[IMAX,J:=A[IMIN,J];

A[IMIN,J]:=B;

END;

WRITELN('vIvod MASSIVA');

FOR I:=1 TO M DO

BEGIN

FOR J:=1 TO N DO

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

WRITELN;

END;

readln;

readln;

End.