Witam,
Mam do napisania program który ma wczytywać dowolny ciąg liczb. Sortowanie nie jest trudne ale problem sprawia mi wczytanie do tablicy liczb oddzielonych spacją.
Wczytanie liczb ma się odbyć z poziomu konsoli.
program odwrocenie;
USES CRT;
var tab: array[1..1000] of Integer;
i : Integer;
c1 : char;
begin
i:=1;
Repeat
Read(tab[i]);
i:=i+1;
Writeln(i);
c1:=readkey;
Until c1=char(13);
for i := 1 to 3 do
Writeln(tab[i]);
end.
Proszę o pomoc :)