Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в каждом столбце.

Формат ввода:

N (N<=10)

a[1,1] a[1,2] ... a[1, N]

a[2,1] a[2,2] ... a[2, N]

...

a[N, 1] a[N, 2] ... a[N, N]

Пример ввода:

5

3 4 1 3 8

2 5 6 6 5

1 3 6 1 4

3 5 1 7 2

1 2 3 2 1

Формат вывода:

b[1,1] b[1,2] ... b[1, N]

b[2,1] b[2,2] ... b[2, N]

...

b[N, 1] b[N, 2] ... b[N, N]

Пример вывода:

3 4 0 3 8

2 5 6 6 5

0 3 6 0 4

3 5 1 7 2

1 0 3 2 0

Question

Информатика

Людмил

11 октября, 11:23

Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в каждом столбце.

Формат ввода:

N (N<=10)

a[1,1] a[1,2] ... a[1, N]

a[2,1] a[2,2] ... a[2, N]

...

a[N, 1] a[N, 2] ... a[N, N]

Пример ввода:

5

3 4 1 3 8

2 5 6 6 5

1 3 6 1 4

3 5 1 7 2

1 2 3 2 1

Формат вывода:

b[1,1] b[1,2] ... b[1, N]

b[2,1] b[2,2] ... b[2, N]

...

b[N, 1] b[N, 2] ... b[N, N]

Пример вывода:

3 4 0 3 8

2 5 6 6 5

0 3 6 0 4

3 5 1 7 2

1 0 3 2 0

+3

Ответы (1)

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

Александр · Answer 1

Var i, j, im, jm:byte;

n:integer;

a:array[1 ... 10,1 ... 10] of integer;

min:integer;

begin

read (n) ;

for i:=1 to n do

for j:=1 to n do

read (a[i, j]) ;

for j:=1 to n do

begin

min:=a[1, j];

for i:=1 to n do

if a[i, j]
min:=a[i, j];

im:=i; jm:=j;

end;

if a[1, j]=min then a[1, j]:=0

else a[im, jm]:=0;

end;

for i:=1 to n do

begin

writeln;

for j:=1 to n do

write (a[i, j]:2) ;

end;

end.