Procedura, która losuje do tablicy

[system]

Siemka

Proszę o pomoc w napisaniu poniższej procedury.

Napisz procedurę, która losuje liczby do tablicy jednowymiarowej z zakresu 0-99 (podajesz długość).

Język programowania: Turbo Pascal

Dziękuję za pomoc

[rozwalkompa]

trochę nie jasno napisałeś, co ma być z zakresu? Jak długość tablicy, to tak:

VAR A:ARRAY[0…99] of byte; i:byte; PROCEDURE losuj(a:byte); BEGIN Randomize; for i:=0 to a do A:=1+Radnom(10); {pozmieniaj wartości} END;

odwołujesz się

losuj(liczba);

Ale nie mam kompilatora, żeby sprawdzić a dawno nie pisałem w Pascalu