AS
юзерам работать невозможно. тестировщики начинают писать репорты
в коде тупо последовательный доступ к большим массивам. вот как в коде + расчет
только берём профайлер и смотрим ))
а не оптимизируем "по привычке" ))))
Size: a a a
AS
DB
var a: array of Integer;
i, n: Integer;
begin
writeLn('Enter N');
readLn(n);
setlength(a, n);
for i := 1 to n do
begin
readLn(a[i]);
writeLn('a[i]= ', a[i]);
end;
readLn;
end.
DB
DB
DB
k
k
DB
k
RS
DB
k
k
DB
AS
DB
SB
AS
DB
k