Преобразовать массив A(12) по заданному алгоритму

[Ден123]

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[danekne]

for i:= 1 to 12 do
begin
if i*i*i<10 then
x:=sin(i)
else
x:= cos(i)
if (a>o) and (x>0.8) then
a[i]:=1
end;

[Ден123]

сделал это примерно что дальше

[Ден123]

я просто не знаю что дальше мне делать

[Zer0]

вывести массив перед циклом и еще раз вывеести после

[Ден123]

объясните дальнейшие действия

[Zer0]

var a:array[1..12] of real;
     x:real;
     i:integer;
begin
for i:=1 to 12 do begin
  write ('A[',i,'] = ');
  readln(a[i]);
end;
writeln ('Array before: ');
for i:=1 to 12 do write (a[i],' ');
writeln;
//здесь преобразование элементов
writeln ('Array after: ');
for i:=1 to 12 do write (a[i],' ');
writeln;
readln;
end.

Что тут еще было объяснять? Эти операции проходят на 1-2 занятиях по паскалю
P,S. Почитайте правила и не дублируйте темы