Поменять местами с первым минимальный элемент каждого столбца массива

@Малинка · Регистрация: 26.12.2012

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

все тот же зачет...- вторая задачка Задана матрица С(5,5). Поменять местами с первым минимальный элемент каждого столбца массива.

@domovou2.0 · 03.01.2013, 16:44

Pascal

var c:array [1..5,1..5] of integer;
    i,min,j,t,imin,jmin:integer;
BEGIN
randomize;
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        c[i,j]:=random(51)-25;
        write(c[i,j]:3);
        end;
    writeln;
    end;
writeln;
for i:=1 to 5 do
    begin
    min:=c[1,i];
    for j:=2 to 5 do
        begin
        if c[j,i]<min then begin min:=c[j,i];imin:=i;jmin:=j;    end;
        end;
    if min<>c[1,i] then
    begin
    t:=c[1,i];
    c[1,i]:=min;
    c[jmin,imin]:=t;
    end;
    end;
for i:=1 to 5 do
    begin
    for j:=1 to 5 do write(c[i,j]:3);
    writeln
    end;
writeln;
readln;
END.

@Малинка 0 / 0 / 0 Регистрация: 26.12.2012 Сообщений: 17
		1
	Поменять местами с первым минимальный элемент каждого столбца массива 03.01.2013, 16:14. Показов 1308. Ответов 1 Метки нет (Все метки) все тот же зачет...- вторая задачка Задана матрица С(5,5). Поменять местами с первым минимальный элемент каждого столбца массива. 0

	03.01.2013, 16:44

Поменять местами с первым минимальный элемент каждого столбца массива

Решение