в общем так,правда это на делфи
Код
type
savematr=array [1..100] of integer;
var
an,bn,cn,dn,ia,ib,ic,id,ja,jb,jc,jd:savematr;
k,c,m,n,h:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;
ia[k]:=StrToInt(Edit1.Text);
ja[k]:=StrToInt(Edit2.Text);
an[k]:=StrToInt(Edit3.Text);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
c:=c+1;
ib[c]:=StrToInt(Edit4.Text);
jb[c]:=StrToInt(Edit5.Text);
bn[c]:=StrToInt(Edit6.Text);
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
mia,mib,mja,mjb,i:integer;
begin
mia:=ia[1];
for i:=1 to k do
if ia[i]>mia then mia:=ia[i];
mja:=ja[1];
for i:=1 to k do
if ja[i]>mja then mja:=ja[i];
mib:=ib[1];
for i:=1 to c do
if ib[i]>mib then mib:=ib[i];
mjb:=jb[1];
for i:=1 to c do
if jb[i]>mjb then mjb:=jb[i];
if mia>mib then n:=mia else n:=mib;
if mja>mjb then m:=mja else m:=mjb;
Label21.Caption:=IntToStr(n);
Label22.Caption:=IntToStr(m);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
v,b,i,g:integer;
begin
v:=StrToInt(Edit7.Text);
b:=StrToInt(Edit8.Text);
for i:=1 to k do
if (ia[i]=v) and (ja[i]=b) then begin
Label11.Caption:=IntTostr(an[i]);
g:=1;end;
if g<>1 then Label11.Caption:=IntToStr(0);
end;
procedure TForm1.Button5Click(Sender: TObject);
var
v,b,i,g:integer;
begin
v:=StrToInt(Edit7.Text);
b:=StrToInt(Edit8.Text);
for i:=1 to c do
if (ib[i]=v) and (jb[i]=b) then begin
Label11.Caption:=IntTostr(bn[i]);
g:=1;end;
if g<>1 then Label11.Caption:=IntToStr(0);
end;
procedure TForm1.Button6Click(Sender: TObject);
var
i,j:integer;
begin
h:=1;
for i:=1 to k do
for j:=1 to c do
begin
if (ia[i]=ib[j]) and (ja[i]=jb[j])
then begin
cn[h]:=an[i]+bn[j];
ic[h]:=ia[i];
jc[h]:=ja[i];
h:=h+1;end
else begin
cn[h]:=an[i];
ic[h]:=ia[i];
jc[h]:=ja[i];
h:=h+1;
cn[h]:=bn[j];
ic[h]:=ib[j];
jc[h]:=jb[j];
h:=h+1;end;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
v,b,i,g:integer;
begin
v:=StrToInt(Edit9.Text);
b:=StrToInt(Edit10.Text);
for i:=1 to h do
if (ic[i]=v) and (jc[i]=b) then begin
Label15.Caption:=IntTostr(cn[i]);
g:=1;end;
if g<>1 then Label15.Caption:=IntToStr(0);
end;
end.
ещё программу саму прилагаю.посмотрите,пожалуйста