Скачать программы Все программы автораЗадание №7Оформить в качестве подпрограммы функцию для вычисления max и min элемента в массиве. Даны натуральные n,m,k, целые a1...an,b1...bm,c1...ck. Вычислить f(x). Min(a1...an)+max(b1...bm),если min(c1...ck)<-10. F(x)= min(a1...an)+min(b1...bm),если min(c1...ck)>10. Min(a1...an)+max(b1...bm),если в остальных случаях. program Func; var o,n,m,k,f:integer; aa,be,ce:char; a,b,c:array [1..999] of integer; function max (d:char):integer; var i,p:integer; begin p:=-1000; if d=aa then for i:=1 to n do if a[i]>p then p:=a[i]; if d=be then for i:=1 to m do if b[i]>p then p:=b[i]; if d=ce then for i:=1 to k do if c[i]>p then p:=c[i]; end; function min (d:char):integer; var i,w:integer; begin w:=1000; if d=aa then for i:=1 to n do if a[i]<w then w:=a[i]; if d=be then for i:=1 to m do if b[i]<w then w:=b[i]; if d=ce then for i:=1 to k do if c[i]<w then w:=c[i]; end; begin write ('Введите n,m,k '); read (n,m,k); for o:=1 to n do read(a[o]); for o:=1 to m do read(b[o]); for o:=1 to k do read(c[o]); if max(cс)<-10 then f:=min(aa)+max(be); if min(cс)>-10 then f:=min(aa)+max(be); if max(cс)=-10 then f:=min(aa)+max(be); write ('F(x)=',f) end. |