Pascal nahodne cisla generovanie procedurou – Pascal – Fórum – Programujte.com

Prosim Vas pomozte robil som program v Pascale a nemozem najst chybu.

Upravte nasledujúci program, aby sčítal 20 náhodných čísel generovaných procedúrou randomize (rozsah zvoľte ľubovoľne).

sucet:=0 ;

for i := 1 to 20 do

sucet:= sucet + i; 

writeln('Sucet cisel od 1 do 20 je: ',sucet);

readln

end. 

Podívej se na dokumentaci k funkcím randomize a randoma použij je k vygenerování náhodných čísel. K sucet pak přičítej to vygenerované číslo, ne to i.

#2 zlz
Urobil som toto: 

var : i,n,sucet: Integer;

begin
Randomize; //zapnutie generatora nahodnych cisiel
sucet:=0 ;
for i := 1 to 20 do
begin
n := Random(100)+1; //generuje nahodne cislo od 0 do 99 a precita 1, aby cisla boli od 1 do 100
sucet:= sucet + n;
end;
writeln('Sucet 20 nahodnych cisel od 1 do 100 je: ',sucet);
readln
end.