var
a:array[1..9,1..4] of integer;
p:array[1..4,1..2] of integer;
min1,min2,j,i:integer;
s:string;
begin
writeln('massiv1');
for i:=1 to 9 do begin
for j:=1 to 4 do
a[i,j]:=random(100);
writeln(,i,' ',j,' = ',a[i,j]);
end;
writeln('massiv2');
for i:=1 to 4 do begin
for j:=1 to 2 do
p[i,j]:=random(100);
writeln(,i,'.',j,' = ',p[i,j]);
end;
min1:=a[4,1];
for i:=1 to 4 do begin
if a[4,i]<min1 then min1:=a[4,i];
end;
min2:=p[4,1];
for i:=1 to 2 do begin
if p[4,i]<min2 then min2:=p[4,i];
end;
write(min1,' ',min2);
end.
|
