Найти минимальный элемент в каждом столбце

@Unit312 · Регистрация: 30.05.2015

Author24 — интернет-сервис помощи студентам

8. Дан произвольный массив целых чисел размерности N*M. Найти минимальный элемент в каждом столбце.

@Tosse · 20.12.2016, 19:49

Pascal

const
mx = 10;
nx = 5;
var a:array[1..mx,1..nx] of integer;
i, min, j: integer;
begin
writeln('Исходный массив:');
for i:=1 to mx do
    begin
    for j:=1 to nx do
        begin
        a[i,j]:=random(10);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to nx do
    begin
    min:=a[1,i];
    for j:=2 to mx do
        if a[j,i] < min then
            min:=a[j,i];
    writeln('Минимальный элемент столбца ', i,' =  ', min);
    end;
end.

@Unit312 0 / 0 / 0 Регистрация: 30.05.2015 Сообщений: 40
		1
	Найти минимальный элемент в каждом столбце 20.12.2016, 18:07. Показов 5747. Ответов 1 Метки нет (Все метки) 8. Дан произвольный массив целых чисел размерности N*M. Найти минимальный элемент в каждом столбце. 0

	20.12.2016, 19:49

Найти минимальный элемент в каждом столбце

Решение