program prog_8;
uses crt;
const p=3.14;
var y:array[1..11] of real;
b,j,u,o,i,n:integer;
m,sum:real;
begin
clrscr;
n:=0;
j:=0;
for i:=1991 to 2001 do
begin
inc(n);
y[n]:=100*(abs(cos(2*i)/(3*i-p))+2.54);
if y[n]<0 then
inc(j);
end;
writeln('god velichina dohoda');
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
write(i,' ',y[n]:5:3);
writeln;
end;
if j<>0 then
begin
m:=y[1];
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
if y[n]<0 then
sum:=sum+y[n];
if y[n]<m then
begin
m:=y[n];
b:=i;
end;
end;
writeln('summa ubitkov sostavlyet=',sum:5:3);
writeln('v ',b,' godu ubitki bili naimenshie');
end;
for i:=1 to n do
if y[i]>0 then
inc(u)
else inc(o);
if u=n then writeln('firma na ptotachenii 10 let ubitkov ne imela')
else if o=n then writeln('firma na protishenii 10 let pribili ne imela')
else writeln('firma na protichenii 10 let imela i ubitki i pribol');
readln;
end.
8-я вот у меня какая вышла, но она работает только на половину(((