| Код | program Task8;
const r=5;
c=3;
a:array[1..r,1..c] of integer=((1,2,3),
(4,5,16),
(7,8,9),
(10,-18,12),
(13,14,15));
var
b:array[1..r,1..c] of integer;
i,j,p,amin,amax:Integer;
begin
amin:=a[1,1];
amax:=amin;
for i:=1 to r do
begin
for j:=1 to c do
begin
write(a[i,j],' ');
if a[i,j] < amin then amin:=a[i,j];
if a[i,j] > amax then amax:=a[i,j];
end;
writeln;
end;
writeln;
p:=sqr(amin+amax);
writeln('A min=',amin,'. A max=',amax,'. P=',p);
writeln;
for i:=1 to r do
begin
if i=4 then continue;
for j:=1 to c do
a[i,j]:=a[i,j]+p;
end;
for i:=1 to r do
begin
for j:=1 to c do
write(a[i,j],' ');
writeln;
end;
readln;
end. |
|