wczytywanie danych do tablic dynamicznych

0

mam dosc duzy problem..otoz chcialbym wczytac do tablicy dynamicznej dane w taki sposob, ze w pierwszej linicje podaje rozmiar tablicy, a w drugiej poszczegolne dane oddzielone spacja. przyklad :

4
1 2 3 4

Deklaruje tablice 4 elemtowa o elemntach kolejno : 1,2,3,4

Niestety, nie moge sobie z tym poradzic..probowalem juz na wiele sposobow..w czym robie blad?

readLN(n);
setlength(h,n);
for i:=0 to n-1 do read(h[i]);

PILNE !! :-( </delphi>

0

Moja propozycja:

var h : array of Integer;
    n, i : Integer;
    s : String;

begin
Readln(n);
SetLength(h,n);
Readln(s);

for i := 0 to n - 1 do
begin
  h[i] := StrToInt(s[2*i+1]);
end;
for i := 0 to n - 1 do
  Write(h[i],' ');
Readln;
end.

To ci załatwia, gdy podajesz dane oddzielone spacją. Gdy będziesz chciał podawać dane ciurkiem, zmień 2*i+1 na i+1

0

juz na to wpadlem..tylko ze siedzimy w FPC a co za tym idzie rzutowanie danych chyba odpada nie? :/

0

mowisz o OI? tozto nie jest pilne, jeszcze miesiac jest ;)

no i o wczytywaniu to na ich stronie pisze...

1 użytkowników online, w tym zalogowanych: 0, gości: 1