Pascal program írása, nem értem. Valaki?

HA első osztályban hiányzol az a betűnél, akkor sosem tudsz a betűt írni, olvasni?

Nincs könyv? Nincs valaki akitől el lehet kérni? Nincs aki elmagyarázná?

Az, hogy nem tudod megírni csak mentség.

Mit nem tudsz? Számot beolvasni? Ellenőrizni a helyességét? Tömböt deklarálni? Véletlen számokat generálni? Kiíratni?

Bármelyiket is csak két szó a google-be és ezer példát találsz rá.

szam: Integer;

rn: Random;

tomb: integer [] of integer []

begin

Readline(szam);

if (szam >1 and szam<10) then

begin

for i = 0 to tomb.length do

begin

for j =0 to tomb.length do

begin

rn = new Random(100);

tomb[i,j] = rn;

end

end

end

end

Valami ilyesmi bocsi rég programoztam Pascalba

Tessék, így kell:

program tomb;

{$mode objfpc}{$H+}

uses

crt;

var

N: integer;

Matrix: array of array of integer;

i,j: integer;

begin

repeat

clrscr;

write('Kerek egy egesz szamot 1 es 10 kozott: ');

readln(N);

until N in [1..10];

clrscr;

SetLength(Matrix,N,N);

Randomize;

for i:=0 to N-1 do

begin

for j:=0 to N-1 do

begin

Matrix[i,j]:=Random(89)+10;

write(Matrix[i,j],' ');

end;

writeln();

end;

SetLength(Matrix,0,0);

end.