нужно убрать массив

[Danil_59]

помогите убрать массив, его нужно убрать, но программа не должна измениться по сути дела


uses crt;
var a: array[1..100] of real;
i,n: integer;
Begin
clrscr;
write('a[1]: ');
readln(a[1]);
write('a[2]: ');
readln(a[2]);
write('a[3]: ');
readln(a[3]);
write('n: ');
readln(n);
for i:=4 to n do
a[i]:=(a[i-1] + 1)/(a[i-2] + 2) * (a[i-3] + 3);
for i:=1 to n do
write(a[i]:4:2,' ');
readln;
End.

[Delphi_ProGer]

for i:=4 to n do

там нужно именно с 4?

[whatever]

Сообщение от Delphi_ProGer

там нужно именно с 4?

Видимо да, так как потом берутся a[i-1], a[i-2] и a[i-3]

Если убрать массив, то придется вручную перелопачивать все входные данные, циклы тут не помогут.
Danil_59, если не секрет, чем тебе массив неугодил?

[Delphi_ProGer]

ну во-первых, программа с ошибкой, т.к. будет выводить не тот елемент массива!

во-вторых, вот пример:
что она должна делать????

[Danil_59]

whatever,да меня то он всем угодил, незнаю зачем просят без него) [/QUOTE]

[Danil_59]

Построить n элементов последовательности и проверить, является ли она монотонно неубывающей или строго возрастающей. вот задание

[Danil_59]

помогите кто нибудь?

[Mad_Cat]

убрать массив

uses crt;
var
a1,a2,a3,buf:real;
i,n: integer;
Begin
clrscr;
write('a1: ');
readln(a1);
write('a2: ');
readln(a2);
write('a3: ');
readln(a3);
write('n: ');
readln(n);
write(a1:6:3,' ',a2:6:3,' ',a3:6:3);
for i:=4 to n do  begin
buf:=(a3 + 1)/(a2 + 2) * (a1 + 3);
a1:=a2;a2:=a3;a3:=buf;
write(' ',buf:6:3);
end;
readln
End.