Răspuns :
Răspuns:
program MatriceCuPrime;
var n, i,j,num:integer;
A:array[1..20, 1..20] of integer;
function prim(m:integer):boolean;
var p, d: integer;
begin
p:=1;
d:=3;
while (d*d<=m) and (p=1) do
begin
if m mod d=0 then p:=0;
d:=d+2;
end;
prim:=p=1;
end;
begin
write('n='); read(n);
num:=2;
if (n=1) then A[1,1]:=num
else
begin
A[1,1]:=num;
num:=1;
for j:=2 to n do
begin
inc(num,2);
while not prim(num) do num:=num+2;
A[1,j]:=num;
end;
for i:=2 to n do
begin
for j:=1 to n do
begin
inc(num,2);
while not prim(num) do num:=num+2;
A[i,j]:=num;
end;
end;
end;
writeln('Matricea generata:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
end.
Explicație:
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.