задача по масивам!!

[Аленка425]

помогите сделать!!!!
1.Нехай прибуток фірми за С-ий рік обчислюється за формулою
ус=100*9,2cosx2-|sinx/1,1|*(c) умовних одиниць, де с=2001, 2002, …, 2010. Якщо ус>0, то вважатимемо , що фірма у відповідний рік мала прибуток, а у випадку ус <0 - збитки. Вивести на екран таблицю: номер року; величина прибутку.
Розглянути фінансову діяльність фірми протягом десяти років. У які роки фірма мала найбільші прибуток та збиток? Вивести повідомлення, якщо шуканих даних немає, наприклад, якщо збитків чи прибутків не було взагалі

перевод на русском

1.Пусть прибыль фирмы за С-ый год исчисляется по формуле
ус = 100 * 9,2 cosx2-| sinx / 1,1 | * (c) условных единиц, где с = 2001, 2002, ..., 2010. Если ус> 0, то будем считать, что фирма в соответствующий год имела прибыль, а в случае ус <0 - убытки. Вывести на экран таблицу: номер года; величина прибыли.
Рассмотреть финансовую деятельность фирмы в течение десяти лет. В какие годы фирма имела наибольшие прибыли и убытки? Вывести сообщение, если искомых данных нет, например, если убытков или прибылей не было вообще

[alex_fcsm]

Не в упрек: написали бы на русском - больше народа могли бы вам помочь

[Аленка425]

спасибо за совет))

[stck]

1. Что такое x?
2. Какой язык?

[Stilet]

Предлагаю:

MODULE mass;
IMPORT StdLog,Math;

PROCEDURE do*;
VAR c:INTEGER;x,yc:REAL;
BEGIN
 x:=0.3;
 StdLog.Clear;
 FOR c:=2000 TO 2010 DO
  StdLog.Int(c);StdLog.Tab;
  yc:=100 * 9.2*Math.Cos(x*2)-ABS(Math.Sin(x)/1.1)*c;
  StdLog.Real(yc);StdLog.Tab;
  IF yc>0 THEN StdLog.String('Прибыльно');END;
  IF yc<0 THEN StdLog.String('Крах идеала');END;
  StdLog.Ln;
 END;
END do;

END mass.

[Аленка425]

спасибо....
это все условие что мне дали что значит х я не знаю