kirillik_mod » 12 ноя 2008, 18:00
[syntax='Delphi']
Program prog;
Const lmax=20;
Type mass=array[1..lmax] of real;
Var B,D,A:mass;
i,k,n,nmax:integer;
x,z1,z2,x1,max:real;
begin
writeln('Vvesti dlinny massiva B ot 1 do',lmax);
read(k);
writeln('Vvedite massiv B iz ',k:3,' eiementov');
for i:=1 to k do
read (b);
writeln ('Vvedite x');
read(x);
nmax:=0;
max:=0;
for i:=1 to k do
if (abs(b)<x) and (abs (b)>=abs(max)) then
Begin
max:=b;
nmax:=i;
end;
{analiz}
if nmax=0 then
writeln ('net maximyma')
else
writeln ('max=',max:10:3,'nmax=',nmax:3);
writeln ('Vvedite z1, z2 (z1<=z2)');
repeat
read (z1,z2);
until (z1<=z2);
n:=0;{Dlinna Massiva}
for i:=1 to k do
if (z1<b) and (b<z2) then
Begin
n:=n+1;
d[n]:=-b;
end;
if n=0 then
writeln ('net massivov D i A')
else
begin
Writeln('massiv D iz',n:3,'elementov');
for i:=1 to n do
writeln (D:10:3);
writeln;
writeln ('vvedite x1');
read(x1);
for i:=1 to n do
if d>x1 then
a:=d[i]
else
a[i]:=-d[i]/2;
writeln ('massiv A iz',n,'ilimentov');
for i:=1 to n do
write(A[i]:10:3);
writeln;
end;
end.
[/syntax]
Может Поможет)
[syntax='Delphi']
Program prog;
Const lmax=20;
Type mass=array[1..lmax] of real;
Var B,D,A:mass;
i,k,n,nmax:integer;
x,z1,z2,x1,max:real;
begin
writeln('Vvesti dlinny massiva B ot 1 do',lmax);
read(k);
writeln('Vvedite massiv B iz ',k:3,' eiementov');
for i:=1 to k do
read (b[i]);
writeln ('Vvedite x');
read(x);
nmax:=0;
max:=0;
for i:=1 to k do
if (abs(b[i])<x) and (abs (b[i])>=abs(max)) then
Begin
max:=b[i];
nmax:=i;
end;
{analiz}
if nmax=0 then
writeln ('net maximyma')
else
writeln ('max=',max:10:3,'nmax=',nmax:3);
writeln ('Vvedite z1, z2 (z1<=z2)');
repeat
read (z1,z2);
until (z1<=z2);
n:=0;{Dlinna Massiva}
for i:=1 to k do
if (z1<b[i]) and (b[i]<z2) then
Begin
n:=n+1;
d[n]:=-b[i];
end;
if n=0 then
writeln ('net massivov D i A')
else
begin
Writeln('massiv D iz',n:3,'elementov');
for i:=1 to n do
writeln (D[i]:10:3);
writeln;
writeln ('vvedite x1');
read(x1);
for i:=1 to n do
if d[i]>x1 then
a[i]:=d[i]
else
a[i]:=-d[i]/2;
writeln ('massiv A iz',n,'ilimentov');
for i:=1 to n do
write(A[i]:10:3);
writeln;
end;
end.
[/syntax]
[b]Может Поможет)[/b]