Probleme1

Sa se afiseze suma elementelor unei matrici cu n linii si m coloane. Elementele matricii sunt de tip intreg.

var a:array[1..100,1..100]of integer;
n,m,i,j:byte; s:real;
begin {citim datele de intrare}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    end;
s:=0; {initializam suma}

{parcurgem elementele matricii}
for i:=1 to n do
    for j:=1 to m do
        s:=s+a[i,j]; {la vechea suma adaugam elementul curent din matrice}
writeln('suma elementelor=',s:5:2);
end.

Sa se afiseze elementele aflate pe linii cu numar par si coloane cu numar impar intr-o matrice cu n linii si m coloane. Elementele matricii sunt numere intregi.

var a:array[1..100,1..100]of integer;
n,m,i,j:byte; s:real;
begin {citim datele de intrare}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    end;

{afisam matricea}
for i:=1 to n do begin
    for j:=1 to m do
        write(a[i,j],' ');
    writeln;
    end;

{afisam elementele aflate la intersectia dintre o linie cu indice par si o coloana cu indice impar}
for i:=1 to n do
    for j:=1 to m do
    if(i mod 2=0)and(j mod 2=1) then writeln(a[i,j]);
end.

Sa se afiseze pozitiile din matrice unde se gasesc elemente pare. Matricea are n linii, m coloane si nXm elemente numere intregi.

var a:array[1..100,1..100]of integer;
n,m,i,j:byte; s:real;
begin {citim datele de intrare}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    end;

{afisam elementele matricii}
for i:=1 to n do begin
    for j:=1 to m do
        write(a[i,j],' ');
    writeln;
    end;

{afisam pozitiile din matrice unde sa gasesc elemente pare}
writeln('elementele pare se gasesc in pozitiile');
for i:=1 to n do
    for j:=1 to m do
    if(a[i,j] mod 2=0)then writeln(i,' ',j);
end.

Se citesc elementele intregi ale unei matrici cu n linii si m coloane. Sa se afiseze numarul de elemente nule, numarul de elemente strict pozitive si numarul de elemente negative.

var a:array[1..100,1..100]of integer;
n,m,i,j:byte; cp,cn,c0:integer;
begin {citim datele de intrare}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    end;

{afisam matricea}
for i:=1 to n do begin
    for j:=1 to m do
        write(a[i,j],' ');
    writeln;
    end;
c0:=0;{initializam numarul de numere nule}
cp:=0;{initializam numarul de numere strict pozitive}
cn:=0; {initializam numarul de numere negative}
for i:=1 to n do
    for j:=1 to m do
        if(a[i,j]=0)then c0:=c0+1 {actualizam numarul de numere nule}
                         else if(a[i,j]>0)then cp:=cp+1 {actualizam numarul de numere strict pozitive}
                         else cn:=cn+1; {actualizam numarul de numere negative}
writeln('nr de nr nule=',c0);
writeln('nr de nr strict pozitive=',cp);
writeln('nr de nr negative=',cn);
end.