uses crt;
const n=4;
var a:array[1..n,1..n] of byte;
i,j,min,max,imin,jmin,imax,jmax,x:byte;
begin
clrscr;
randomize;
writeln('Ishodnaua matrica A:');
min:=50;max:=0;imin:=1;jmin:=1;imax:=1;jmax:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51);
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end
else if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
write(a[i,j]:4);
end;
writeln;
end;
x:=a[imin,jmin];
a[imin,jmin]:=a[imax,jmax];
a[imax,jmax]:=x;
writeln('Rezultat:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
uses crt;
const n=4;
var a:array[1..n,1..n] of byte;
i,j,min,max,imin,jmin,imax,jmax,x:byte;
begin
clrscr;
randomize;
writeln('Ishodnaua matrica A:');
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(51);
min:=50;max:=0;imin:=1;jmin:=1;imax:=1;jmax:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end
else if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
for i:=1 to n do
begin
for j:=1 to n do
if (i=imin)and(j=jmin) then
begin
TextColor(14);
write(a[i,j]:4);
end
else if (i=imax)and(j=jmax) then
begin
TextColor(12);
write(a[i,j]:4);
end
else
begin
TextColor(15);
write(a[i,j]:4);
end;
writeln;
end;
x:=a[imin,jmin];
a[imin,jmin]:=a[imax,jmax];
a[imax,jmax]:=x;
writeln('Rezultat:');
for i:=1 to n do
begin
for j:=1 to n do
if (i=imin)and(j=jmin) then
begin
TextColor(14);
write(a[i,j]:4);
end
else if (i=imax)and(j=jmax) then
begin
TextColor(12);
write(a[i,j]:4);
end
else
begin
TextColor(15);
write(a[i,j]:4);
end;
writeln;
end;
readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.