Меню сайта

Задача №24

Дан — массив из —n -элементов. Получить элементы, которые находятся между минимальным и максимальным.


Program mas_24-

uses crt-

var a,b : array [1..1000]of longint-

f,i,j,n,m,max,min,k,l : longint-

label met-

begin

clrscr-

write(‘количество элементов -n=’)-

readln(n)-

for i:=1 to n do

begin

write(‘a[‘,i,’]=’)-readln(a[i])-

end-

max:=a[1]-k:=1-

for i:=2 to n do

if a[i]&gt-max then

begin

max:=a[i]-k:=i-

end-

min:=a[1]-l:=1-

for i:=2 to n do

if a[i]&lt-min then

begin

min:=a[i]-l:=i-

end-

if k&lt-l then

begin

for f:=k+1 to l-1 do

begin

j:=j+1-b[j]:=a[f]-

m:=m+1-

end-

goto met-

end-

if l&lt-k then

begin

for f:=l+1 to k-1 do

begin

j:=j+1-b[j]:=a[f]-m:=m+1-

end-

end-

met : writeln-

for j:=1 to m do

writeln(b[j])-

readln-

end.

Категория: Массивы | Дата: 19.12.12

Меню раздела
Блок