fork download
  1. var ch:char;
  2. var I,K:Integer;
  3. var value:Double;
  4. var tb:array of array of double;
  5. begin
  6. SetLength(tb,4);
  7. for I:=0 to Length(Tb)-1 do // tu zastosuj eof(plik)
  8. begin
  9. ch:='!';
  10. while ch<>' ' do Read(ch);
  11. K:=0;
  12. while true do
  13. begin
  14. {$I-} Read(value); {$I+}
  15. if IOResult<>0 Then break;
  16. SetLength(Tb[I],K+1);
  17. Tb[I][K]:=value;
  18. Inc(K);
  19. end;
  20. end;
  21. for I:=0 to Length(Tb)-1 do
  22. begin
  23. Write(I,':',Length(Tb[I]),': ');
  24. for K:=0 to Length(Tb[I])-1 do Write(Tb[I][K]:9:3);
  25. WriteLn;
  26. end;
  27. end.
Success #stdin #stdout 0s 276KB
stdin
MIN  -4.533  125.239 24 11 0 121 -34.54
MAX  -121  220 -33.43 3 0 0 234.2 -234
MIN  1 -6 -4.9  6 10 923 0.23
MAX  5 2 -1 0  5 87.23   23.5
stdout
0:7:    -4.533  125.239   24.000   11.000    0.000  121.000  -34.540
1:8:  -121.000  220.000  -33.430    3.000    0.000    0.000  234.200 -234.000
2:7:     1.000   -6.000   -4.900    6.000   10.000  923.000    0.230
3:7:     5.000    2.000   -1.000    0.000    5.000   87.230   23.500