Here's my programm which has a wrong answer at test 9:
Var a:qword;
      i:word;
      arr:array[word] of qword;
Begin
  i:=0;
  While not seekeof do begin
    read(arr[i]);
    inc(i);
  end;
  for i:=i-1 downto 0 do
    writeln(sqrt(arr[i]):0:4);
end.

type "word" gives 65536 values, each one takes 6 or more bytes (I don't know how many bytes type "qword" requires) so I count: 65536*6/1024=384, it means this array can cover up to 384 Kb, although the problem gives a limit 256kb. So everything looks fine, but a wrong answer at #9 test.
Please help...

Here is your AC Program:
Var a:qword;
i:longint;
arr:array[0..10000000] of extended;
Begin
i:=0;
While not seekeof do begin
read(arr[i]);
inc(i);
end;
for i:=i-1 downto 0 do
writeln(sqrt(arr[i]):0:4);
end.

Thanks for help!!! I did get AC, but really didn't understand why my program didn't work.

Edited by author 31.01.2007 00:03