Двумерный массив (10x10). Найти максимум в каждой строке и минимум в каждом столбце.

Question

Информатика

Кира

27 декабря, 14:28

Двумерный массив (10x10). Найти максимум в каждой строке и минимум в каждом столбце.

+2

Ответы (1)

Знаете ответ на вопрос?

Кетевань · Answer 1

Const

N = 10;

Var

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

i, j, M:integer;

Begin

Randomize;

For i: = 1 to N do

Begin

M:=1;

For j: = 1 to N do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j]:3,' ') ;

if A[i, M]
End;

WriteLn (' Max = ', A[i, M]) ;

End;

WriteLn ('Минимумы:') ;

For j: = 1 to N do

Begin

M:=1;

For i: = 1 to N do

if A[i, j]
Write (A[M, j]:3,' ') ;

End;

End.