Среда, 09 Сен 2009
Дана матрица целых чисел. Найти меньший элемент матрицы. Записать нули в ту строку, в которой он находился.
Program null;
const n=4;m=4;
var
A:array [1..n,1..m] of integer;
i,j,imin,jmin:integer;
begin
writeln;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
A[i,j]:=random(100);
write(a[i,j],’ ‘);
end;
end;
imin:=1; jmin:=1;
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<a[imin,jmin] then begin
imin:=i;
jmin:=j;
end;
end;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
if i=imin then a[i,j]:=0;
write(a[i,j],’ ‘);
end;
end;
end.
Рубрика: Матрица | Comments Off
Среда, 09 Сен 2009
Дана матрица действительных чисел. Строку, которая содержит максимальный элемент матрицы, поменять со строкой, которая содержит минимальный элемент.
Program zamenastrok;
const n=4;m=4;
var
A:array [1..n,1..m] of real;
tmp:real;
i,j,imin,jmin,imax,jmax:integer;
begin
writeln;
for i:=1 to n do begin
writeln();
for j:=1 to m do begin
A[i,j]:=random(100000)/100;
write(a[i,j],’ ‘);
end;
end;
imin:=1; jmin:=1; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>a[imax,jmax] then begin
imax:=i;
jmax:=j;
end;
if a[i,j]<a[imin,jmin] then begin
imin:=i;
jmin:=j;
end;
end;
for j:=1 to m do begin
tmp:=a[imax,j];
a[imax,j]:=a[imin,j];
a[imin,j]:=tmp;
end;
for i:=1 to n do begin
writeln();
for j:=1 to m do write(a[i,j],’ ‘);
end;
end.
Рубрика: Матрица | Comments Off