Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: [Utopiony] Napisz program przechowujący 100 losowych liczb z zakresu 1-100 w tablicy;

W dół

Od 1 do 1 z 1

  1.  
  1.  
    program liczb 100;
    uses CRT;
    var
    tablica:array[1...100] of integer;
    i:integer;
    begin
    randomize
    for i :=1 to 100 do
    begin
    tablica[i]:= random(100);
    end;
    end.

Od 1 do 1 z 1

  1.