petryca
12-06-2012, 06:46 PM
Se da o matrice patratica cu n linii si n coloane.Sa se scrie si sa se afiseze un program care sa calculeze numerele prime din matrice,afisandu-le intr-un vector.
Eu am facut astfel:
program nr_prime;
uses wincrt;
var n,i,j,k:integer;ok:boolean;
v:array[1..10,1..10] of integer;
a:array[1..10] of integer;
begin
write('Introdu dimensiunea matricii ');
readln(n);
for i :=1 to n do
for j :=1 to n do
begin
write('v[',i,',',j,']=');
readln(v[i,j]);
end;
ok:=True;
for i:=1 to n do
begin
for j:=1 to n do
for k:=2 to n-1 do
begin
if v[i,j] mod k=0 then
ok:=False;
if ok=true then
a[k]:=v[i,j];
end;
end;
writeln('Numerele prime sunt: ',a[k]);
read(a[k]);
end.
Astept pareri si....
:ass:
Eu am facut astfel:
program nr_prime;
uses wincrt;
var n,i,j,k:integer;ok:boolean;
v:array[1..10,1..10] of integer;
a:array[1..10] of integer;
begin
write('Introdu dimensiunea matricii ');
readln(n);
for i :=1 to n do
for j :=1 to n do
begin
write('v[',i,',',j,']=');
readln(v[i,j]);
end;
ok:=True;
for i:=1 to n do
begin
for j:=1 to n do
for k:=2 to n-1 do
begin
if v[i,j] mod k=0 then
ok:=False;
if ok=true then
a[k]:=v[i,j];
end;
end;
writeln('Numerele prime sunt: ',a[k]);
read(a[k]);
end.
Astept pareri si....
:ass: