Rambler's Top100

Скачать программы    Все программы автора

Задание №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.

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz