Файлы последовательного доступа Опции

[ranger]

Люди, помогите сформировать файл последовательности двадцати чисел, в которой каждый i - й компонент определяется по формуле:

если i<=8 то y=sin(i*PI/8)
если i>8 то y=4cos(i(PI+1))/5

[volvo]

их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать

Принимай, в чем проблема?

{ открываешь файл }
for i := 1 to 20 do begin
  if i < 8 then T := sin(i*PI/8)
  else T := 4*cos(i*(PI+1))/5;

  if T < 0 Then Writeln(f, T);
end;
{ закрываешь файл }