btotyi
tag
válasz athew #1261 üzenetére
Íme :program Tomb;{$APPTYPE CONSOLE}usesSysUtils;Var Tmb : array[0..9] of integer ;i : integer ;beginRandomize;for i:=0 to 9 doTmb := Random(255);for i:=0 to 9 doWriteLn('Tömb ', i,'=',Tmb);end.