Danusa píše:
ahoj, nerucim za syntax, nemala som to kde vyskusat, skus ci ti to pojde, je to len taky napad ako by sa to asi dalo riesit
Kód:
program Arrays;
var
r, c: Integer;
a: array [1..10,1..10] of Integer;
ranDom, tri, styri: integer;
tri, styri: string;
begin
tri := '000';
styri := '0000';
for i := 1 to 10 do
for y := 1 to 10 do
randomize;
ranDom:=random(1);
if ranDom = 0 then r:=tri else r:=styri;
randomize;
ranDom:=random(1);
if ranDom = 0 then c:=tri else c:=styri;
Writeln(a[r,c]);
end.
Je tam par zavaznych chyb..
1.
Kód:
for i := 1 to 10 do
for y := 1 to 10 do
randomize;
Vzhladom na to, ze nie je oznaceny blok prikazov, cykly budu vykonavat iba prikaz randomize 100x, co je absolutna zbytocnost... prikaz randomize sa neumiestnuje do cyklov, pretoze sa moze lahko stat, ze napriek jeho uvedeniu program bude generovat tie iste cisla (pretoze cyklus akoby predbehne inicializaciu randomize)
2. Do pola a neukladas ziadne hodnoty
3. Program nedovoli definovat premennu s nazvom "ranDom", pretoze existuje funkcia s tymto nazvom (a pascal nie je case sensitive jazyk)
Posli cely zdrojak(opraveny). 
