Hi!
Erstmal herzlich willkommen!
Hausaufgaben macht man nicht auf den letzten Drucker!
Ich mach ungern Hausaufgaben, aber ich hab mir Bild eins einmal angeschaut!
Delphi-Quellcode:
for i := Max downto 3 do
array[i+1] := array[i];
array[3] := 50;
so müsste es zu realisieren sein!