Egy érdekes feladat? Lehetséges ez?

Nem, a random miatt egyáltalán nem biztos.

Pont ez az, hogy véletlen számok. Az is egy ilyen "véletlen" eset, hogy 8 db 5-ös számot kapsz. Megeshet, csak kicsi rá az esély.

Mindegy mire cseréled, be kell vezetni egy logikai változót és vizsgálni kell, hogy volt-e negatív. De tessék:

program test;

var i, n, k, hiba : integer;

neg : boolean;

begin

Randomize;

hiba := 0;

for n := 1 to 10000 do

begin

neg := false;

Write(n:5, '. ');

for i := 1 to 8 do

begin

k := Random(1000) - 500;

Write(k:5);

if k < 0 then neg := true;

end;

if not neg then inc(hiba);

WriteLn(neg:10);

end;

WriteLn(hiba:5);

end.

10000-ből átlagban 40-szer nincs negatív.

"Az is egy ilyen "véletlen" eset, hogy 8 db 5-ös számot kapsz. Megeshet, csak kicsi rá az esély."

Kicsi rá az esély?

Ennek: 55555555

pontosan ugyanakkora az esélye, mint

ennek: 45362623

Na igen.

Amúgy én kb annyival lerendezném a generálást, hogy ugye ciklussal elkezdem a 8 számot generálni és van egy logikai, hogy egyik negatív-e, ha igen, akkor ki is lehet lépni a ciklusból, ha nincs, de az index eléri az utolsó elemet, akkor oda begenerálok egy negatívat.

Ezzel megvan van oldva, hogy negatív biztos legyen és nem is fut végig az egész, ha nem kell.

Az összegzés meg egyértelmű, megy végig, összegez, ha negatívat kap, akkor terminál és kész is az egész, ott az összeg.

DE ezt az egészet (tömbbel vagy anélkül is) meg lehet csinálni 1 db ciklussal.

fuu, hogy akarod elvégezni az iskolát, ha egy ilyen könyű-t nem tudsz?

Szerintem hadjad az egészet a francba...

Ha majd kapsz valami jó munkát, és nem fogsz érteni valamit, ki írod GyK-re? fuu