задача pascal abc

[Петр студент]

Program  Pr_11;
Type mas=array[1997..2006] of real;
Var k:integer; y: mas;
S,sa:real; kol: integer;
Function f(x:integer):real;
Begin
F:=(sin(x+1)+exp(x/(x+1)))/12/cos(sqr(x))
End;
Begin
S:=0;
Writeln(‘        год          доход’);
For k:=1997 to 2006 do
Begin
Y[k]:=100*f(k);
Writeln (k:7,y[k]:12:2);
S:=s+y[k];
End;
SA:=S/10; writeln(‘ средний  доход фирмы = ‘, sa:12:2);
Kol:=0;
Writeln(‘ доходы ниже среднего ‘);
For k:=1997 to 2006 do
Begin
If y[k]<sa then
Begin
Kol:=kol+1;
Writeln(k:7,y[k]:12:2);
End;
S:=s+y[k];
End;
If kol=0 then writeln (‘ фирма  не имела’)
Else writeln (‘ фирма имела ‘, kol, ‘ лет.’);
End.

Сколько лет доходов было меньше 1000, но больше 500 у.е? когда фирма понесла наибольший убыток?

[Mad_Cat]

Сколько лет доходов было меньше 1000, но больше 500 у.е?

CY:=0;
for i:=1997 to 2006 do
if (Y[i]>500) and (Y[i]<1000) then inc(CY);

когда фирма понесла наибольший убыток?

YY:=0;
for i:=1997 to 2006 do
if (Y[i]<YY) then YY:=Y[i];
for i:=1997 to 2006 do
if Y[i]=YY then Writeln(i);

[Петр студент]

получу стипендию, обязательно отблагодарю)