FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Lista Forumurilor Pe Tematici
|
FORUM | Reguli | Inregistrare | Login
POZE FORUM
Nu sunteti logat.
|
Nou pe simpatie:
Anne98 din Buzau
 | Femeie
25 ani
Buzau
cauta Barbat
27 - 52 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{fie o matrice de n linii si coloane ce cotnine numere nat. un prg in care folosind
subprog se vor determina liniile si coloanele formate numai din nr prime}
program cinci;
type matrice=array[1..100,1..100] of integer;
var a:matrice;
n,m,i,j,el:integer;
procedure citire(var n,m:integer; var a:matrice);
var i,j:integer;
begin
write('n=') ;readln(n);
write('m=') ;readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
end;
function prim(el:integer):boolean;
var i:integer;
begin
prim:=true;
if (el=0) or(el=1) then prim :=false;
for i:=2 to el div 2 do if el mod i=0 then prim:=false;
end;
function linie(n,m,i:integer):boolean;
var k:integer;
begin
linie:=true;
for k:=1 to m do if not prim(a[i,k]) then linie:=false;
end;
function coloana(n,m,j:integer):boolean;
var k:integer;
begin
coloana:=true;
for k:=1 to n do if not prim(a[k,j]) then coloana:=false;
end;
begin
citire(n,m,a);
write('liniile: ');
for i:=1 to n do if linie(n,m,i) then write(i,' ');
writeln(' sunt numai cu elemente prime');
write('coloanele: ');
for j:=1 to m do
if coloana (n,m,j) then write(j,' ');
writeln(' sunt numai cu elem prime');
readln;
end.
|
|
| pus acum 18 ani |
|