Задать вопрос
27 октября, 03:47

Дан двумерный массив 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

+5
Ответы (1)
  1. 27 октября, 06:29
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан двумерный массив N*N элементов. Обнулите первый минимальный элемент в каждом столбце. Формат ввода: N (N ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы