Segítene vki programozásban? (pascal)

Kössz a valaszt.Ott a randomoknal igy utolag mar nem tom h mit csinaltam.

Azt amit a feladat masik reszehez irtal pedig holnap kiprobalom.remelem sikerul megprogramoznom.

Nem tudom megcsinálni.Fogalmam sincs mit kéne még csinálnom h kiírja azokat a számokat.

így néz ki az új program.

program asd;

uses crt;

var a:array[1..10]of integer;

var x,z,i,c:integer;

begin

clrscr;

randomize;

z:=random(10)+1;

writeln('a tomb tartalma ');

for i:=1 to z do

a[i]:=random(8);

for i:=1 to z do

write(a[i],' ');

readln;

writeln;

x:=0;

c:=0;

for i:=1 to z do

if x<6 then write(a[i],' ');

if x<6 then c:=c+1;

writeln( 'drb szam pedig ',i);

repeat until keypressed;

end.

"A random(8) 0-7-ig álít elő számokat."

Ezt soha nem tudom h mikor mennyi :/

(tehát akkor az esetemben (8)+1? V hogy van ez?

Időközben rájöttem h semmi értelme az x-nek.Még tegnap próbálkoztam az a[i]-s megoldással,csak valahogy sikeresen elcsesztem még vmit és mivel nem működött azt hittem rossz.

A drb szám számolásánál pedig véletlenül írtam i-t mivel eddig mindig azzal dolgoztam/tunk,csak hát ugye most foglalt volt :D

A program másik része most így néz ki.

c:=0;

for i:=1 to z do

if a[i]<6 then write(a[i],' ');

for i:=1 to z do

if a[i]<6 then c:=c+1;

writeln( 'drb szam pedig ',c);

repeat until keypressed;

end.

Így már működik.Köszi a segítséget még 1x.

:D Pofon egyszerűnek nem nevezném,de logikus.Kicsit magas még nekem ez a pascal.

Tényleg 1 utolsó kérdés.

Ha a mátrix minden sorának legnagyobb elemét keresem(és azt az adott sor végére kell tennem),akkor mit hasonlítsak össze mivel?Gondolom a mátrix sorainak minden egyes elemét külön meg kell vizsgálni,de erre mivel hivatkozzak?Mikor pl. m-ig generál számokat a tömb?