Misiekd napisał(a)
hebius napisał(a)
No tak. Ale tak byloby za latwo troszke. To ma byc operacja na tablicy array of Integer.
lecisz pętlą od 0 do rozmiar_tablicy div 2 i zamieniasz i-ty z rozmiar_tablicy-i - tym i już
koledze chyba raczej chodzilo o odwrocenie tablicy od podanej pozycji:
procedure odwrocod(var tab:array of integer; od, rozmiar:integer);
var i,s:integer;
t:integer;
begin
dec(od);
dec(rozmiar);
s:= (rozmiar - od) div 2;
for i := 0 to s do
begin
t := tab[i+od];
tab[i+od] := tab[rozmiar-i];
tab[rozmiar-i] := t;
end;
end;
gdzie:
tab - tablica do odwrocenia
od - pozycja od ktorej ma odwrocic tablice (poczatek od pozycji 1)
rozmiar - ilosc elementow w odwracanej tablicy