Then Begin

Begin

End;

Writeln;

Begin

End;

BEGIN

Readln(N);

Readln(M);

Begin

Var

Program MAX_MIN;

Поиск максимума в двумерном массиве (в матрице)

End.

Readln;

End

Then begin

End;

Then Begin

End;

sum:= 0;

kolp:=0;

FOR I:=1 TO M DO

For J:=1 to N do

If A[I,J] > 0

sum:= Sum + A[I,J];

kolp:= kolp + 1;

if kolp > 0

sa:= sum / kolp;

WRITELN(' сред. арифм. полож-х эл-в = ', sA:8:2);

else WRITELN(' в матрице полож-х эл-в нет ');

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

I,J: integer;

IMAX,JMAX,IMIN,JMIN: 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]);

{ ПЕЧАТЬ МАТРИЦЫ В МАТРИЧНОЙ ФОРМЕ }

For I:=1 to M do

{ ПЕЧАТЬ ОЧЕРЕДНОЙ СТРОКИ }

For J:=1 to N do

Write (' A [', i, ', ', j, ' ] = ', A[ I,J ]:6);

{ ПЕРЕХОД НА НОВУЮ СТРОКУ }

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

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

FOR I:=1 TO M DO

For J:=1 to N do

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

IMAX:=I;

JMAX:=J;

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