Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
integer function pp1 (x,k)
dimension x(k)
integer x,i,min,k
min=x(1)
i=1
do while (i<=k)
if (x(i)<min) then
min=x(i)
end if
i=i+1
end do
pp1=min
end
integer function pp2 (x,k)
dimension x(k)
integer x,i,max,k
max=x(1)
i=1
do while (i<=k)
if (x(i)>max) then
max=x(i)
end if
i=i+1
end do
pp2=max
end
dimension x(10)
integer x,pp1,pp2,min,max
real s
s=0
write (*,*) 'vvedite x'
read (*,*) x
min=pp1(x,10)
max=pp2(x,10)
s=(min+max)/2.
write(*,*) 'polusumma - ', s
end
dimension x(k)
integer x,i,min,k
min=x(1)
i=1
do while (i<=k)
if (x(i)<min) then
min=x(i)
end if
i=i+1
end do
pp1=min
end
integer function pp2 (x,k)
dimension x(k)
integer x,i,max,k
max=x(1)
i=1
do while (i<=k)
if (x(i)>max) then
max=x(i)
end if
i=i+1
end do
pp2=max
end
dimension x(10)
integer x,pp1,pp2,min,max
real s
s=0
write (*,*) 'vvedite x'
read (*,*) x
min=pp1(x,10)
max=pp2(x,10)
s=(min+max)/2.
write(*,*) 'polusumma - ', s
end
Соседние файлы в папке 5var