Столбец матрицы, содержащий минимальный элемент, поменять местами с первым столбцом

@miniml · Регистрация: 04.06.2012

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

Дан вещественный массив из 5 строк и 3 столбцов. Столбец, содержащий минимальный элемент, поменять местами с первым столбцом.

@Chertenok_n_13 · 26.09.2012, 00:23

Pascal

uses crt;
var
mas: array [1..5,1..3] of real;
min,vr:real;
i,j,l: byte;
begin
 
for i:=1 to 5 do
for j:=1 to 3 do begin
write('mas[',i,',',j,']='); readln(mas[i,j]); end;
 
clrscr;
writeln('исходная матрица');
for i:=1 to 5 do begin writeln;
for j:=1 to 3 do write(mas[i,j]:4:1, '  '); end;
 
min:=mas[1,1];
 
for i:=1 to 5 do
for j:=1 to 3 do
if mas[i,j]<min then begin min:=mas[i,j]; l:=j;end;
 
writeln;
writeln('преобразованная матрица');
for i:=1 to 5 do begin
vr:=mas[i,1]; mas[i,1]:=mas[i,l]; mas[i,l]:=vr; end;
 
for i:=1 to 5 do begin
for j:=1 to 3 do
write(mas[i,j]:4:1,'  '); writeln;  end;
 
 
readln;
end.

@miniml 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 7
		1
	Столбец матрицы, содержащий минимальный элемент, поменять местами с первым столбцом 25.09.2012, 17:52. Показов 1818. Ответов 1 Метки нет (Все метки) Дан вещественный массив из 5 строк и 3 столбцов. Столбец, содержащий минимальный элемент, поменять местами с первым столбцом. 0

Опции темы

Столбец матрицы, содержащий минимальный элемент, поменять местами с первым столбцом

Решение