gtom#11
program tobbdim;
uses crt;
const n=10;
var
t:array[1..n,1..n] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
t[i,j]:=random(90)+9;
write(t[i,j]:3);
end;
writeln;
end;
readln;
end.
itt az alap program. ez egy mátrixot ír ki. ezt hogy egészítenéd ki?