Then Begin.

Begin

I:=2;

End;

BEGIN

Readln(N);

Readln(M);

Begin

Var

Program Obmen;

Здесь используется цикл WHILE для индексации строк, т.к. нас интересуют только четные строки, следовательно, шаг для строк должен быть равен 2. В цикле FOR этого сделать нельзя.

End.

Readln;

End;

End;

Then Begin

End

еlse If A[IMIN, JMIN] > A[I,J]

IMIN:=I;

JMIN:=J;

WRITELN(' МАКСИМУМ = ', A[ IMAX, JMAX ],

' СТРОКА= ', IMAX, ' СТОЛБЕЦ = ', JMAX);

WRITELN(' МИНИМУМ = ', A[IMIN, JMIN],

' СТРОКА= ', IMIN, ' СТОЛБЕЦ = ', JMIN);

Поменять местами максимальный и минимальный элементы, найденные среди элементов четных строк матрицы А(M,N).

A: array[1..30,1..30] of integer;

I,J: integer;

IMAX,JMAX,IMIN,JMIN: integer;

T,M,N: integer;

Writeln (' ВВЕДИТЕ ЧИСЛО СТРОК МАТРИЦЫ, <= 30 ');

Writeln (' ВВЕДИТЕ ЧИСЛО СТОЛБЦОВ МАТРИЦЫ, <= 30 ');

For I:=1 to M do

For J:=1 to N do

Writeln (' A [', i, ', ', j, ' ] = ');

Readln(A[I,J]);

IMAX:=1; JMAX:=1; {координаты максимального элемента}

IMIN:=1; JMIN:=1; {координаты минимального элемента}

While (I<=M) do

For J:=1 to N do

If A[ IMAX, JMAX ]< A[I,J]

IMAX:=I;

JMAX:=J;

Дата добавления: 2013-12-13