Programozásból kaptam házit, Delphiben, Pascal nyelven kellene megcsinálni. Tudnátok segíteni?

Egy tömböt feltöltesz randommmal, úgy hogy 4/10 valószínűséggel 0-t kap egy tömbelem.

for ciklussal célszerű.

Eddig megvan?

Ennyi a tömb feltöltése:

var

t:array [1..30] of integer;

i:integer;

begin

randomize;

for i:=1 to 30 do

if random(10)<4 then

t[i]:=0 else

t[i]:=random(49)+1;

end.

Ha random(10)<4 akkor 0-t rak be, mivel 0,2,3,4,5,6,7,8,9 számok közül a 0,1,2,3 szám bármelyikét 1/10 valószínűséggel választja, így

random(10)<4 feltétel 40% azaz 4/10 valószínűséggel teljesül, ha teljesült akkor a tömb aktuális elemének 0-t adunk értékül, különben egy 0-nál nagyobb értéket amit csak beírtam valamit ami garantáltan 0-nál nagyobb véletlen érték. Pofon egyszerű.

Átlagot meg biztos tudsz számolni. Ezt kell beültetni programkódba. Egy real vagy double változóba egy for ciklussal összeadod és elosztod 30-al, aza a napok számával.

Az átlagtól való legnagyobb eltérés lényegében egy maximum keresés módosított változata, nem kell mást tenni hozzá mint gondolkodni. Lehet hogy csúnyán hangzik hogy gondolkodni is kell hozzá, de máshogy sajnos nem lehet megírni, mellesleg az is pofon egyszerű.