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

@Anna Lisina · Регистрация: 30.03.2015

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

-1 7 12 8
-1 3 -4 4
3 2 -1 4
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца.

Pascal

i,j,n,k,r:integer; min,max: real;
fr, fw: text;
begin
assign (fr,'c:\student\14-ttp\lisina\dan5l.pas');
reset(fr);
assign (fw,'c:\student\14-ttp\lisina\res5_lis.pas');
rewrite (fw);
for i:=1 to 3 do
for j:=1 to 4 do
read (fr,a[i,j]);
writeln (fw,'isx mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
min:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if(a[i,j]>0)and(a[i,j]<min) then
begin
min:=a[i,j];
k:=i;
n:=j;
end;
max:=a[1,3];
for i:=1 to 3  do
if a[i,j]>max then
begin
max:=a[i,3];
r:=i;
end;
c:=a[k,n];
a[k,n]:=a[r,3];
a[r,3]:=c;
end;
writeln(fw);
writeln (fw,'new mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
close (fr);
close (fw);
end.

@abit · 21.05.2015, 03:13

где-то на 5 строчке чтения этого кода я потерял связь не только с исходной задачей, но и с реальностью...
не побоюсь спросить, вы вообще понимаете в чём суть задачи и что в этом коде написано?

@abit 462 / 425 / 127 Регистрация: 03.02.2013 Сообщений: 1,315
	21.05.2015, 03:13	2
	где-то на 5 строчке чтения этого кода я потерял связь не только с исходной задачей, но и с реальностью... не побоюсь спросить, вы вообще понимаете в чём суть задачи и что в этом коде написано? 0

Опции темы