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

Question

Информатика

Мелитика

16 июня, 20:49

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

+3

Ответы (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.