Циклические вычислительные процессы Опции

[WVBR]

Ребят помогите решить задачу
не пойму как выстроить правильно циклы

[Krjuger]

Покажите,как выстроили.....Тут телепатов нет.

[WVBR]

var a:array[1..3] of real;
i,n,count:integer; t:real;
begin
a[1]:=1; a[2]:=4; a[3]:=1;
count:=3;
readln(n);
for i:=1 to 3 do write (a[i]:0:3,' ');
for i:=4 to n do begin
t:=a[i-3]+a[i-2]*sqrt(i*ln(abs(a[i-2])));
if t-trunc(t)<0.5 then inc(count);
a[1]:=a[2]; a[2]:=a[3]; a[3]:=t;
write (t:0:3,' ');
end;
writeln;
writeln ('count of numbers = ',count);
readln;
end.

[Krjuger]

Эм для начала, лучше не переопределять исходные данные,а дополнять.

const n=10;
var a:array[1..n] of real;
 i,count:integer;
 t:real;
begin
count:=3;
a[1]:=1; a[2]:=4; a[3]:=1;
for i:=4 to n do begin
 a[i]:=a[i-3]+a[i-2]*sqrt(i*ln(abs(a[i-2])));
 if a[i]-trunc(a[i])<0.5 then
   inc(count);
end;
for i:=1 to n do
 write (a[i]:0:3,' ');
writeln;
writeln ('count of numbers = ',count);
readln;
end.

Как то так...