Probleme Pascal

Se da o matrice patratica:

1 suma elementelor negative din matrice

2 suma elementelor din matrice care se afla in intervalul [-1,9] si pe coloane pare

3 produsul elementelor din matrice care se termina in 3 si se gasesc sub diagonala principala

4 nr de elemente din matrice care sunt patrare perfecte si se gasesc deasupra diagolanei principale pe linii pare si coloane impare

5 max elementelor din matrice

6 max elementelor de pe linia p

7 min elementelor dp col p

8 realizati suma a 2 matrici date

9 realizati o matrice c ce se obtine dintr-o matrice a data prin transformarea elementelor pare in 5

10 sa se interschimbe intr-o matrice linia k cu linia p.

Multumesc mult pentru cel/cei care ma ajuta, raman dator, stiu sunt de, ca la inceput...


Nota: Imi trebuie doar SINTAXA RESPECTIVA, nu toata problema

probleme rezolvate, thanks Johan

Np

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,s:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
if x[i,j]<0 then s:=s+x[i,j];
writeln('Suma elementelor negative din matrice este: ',s);
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,p:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
p:=1;
for i:=1 to n do
for j:=1 to n do
if x[i,j] mod 10=3 then p:=p*x[i,j];
write('produsul elementel din matrice care se termina in 3 este: ',p);
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,s:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
if (x[i,j]>=-1) and (x[i,j]<=9) then s:=s+x[i,j];
writeln('suma elementelor din intervalul [-1,9] este: ',s);
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,max:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
max:=x[1,1];
for i:=1 to n do
for j:=1 to n do
if max<x[i,j] then max:=x[i,j];
writeln('Maximul elementelor din matrice este: ',max);
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,p,max:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
write('p='); readln(p);
max:=x[p,1];
for i:=1 to n do
if max<x[p,i] then max:=x[p,i];
writeln('Maximul elementelor din matrice este: ',max);
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,p,min:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
write('p='); readln(p);
min:=x[1,p];
for i:=1 to n do
if min<x[i,p] then min:=x[i,p];
writeln('Maximul elementelor din matrice este: ',min);
end.

program matrice;
var a,b,c:array[1..100,1..100] of integer;
n,m,i,j:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
write('b[',i,',',j,']=');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
writeln('matricea suma este: ');
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.

program matrice;
var x,c:array[1..100,1..100] of integer;
n,i,j:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
c[i,j]:=x[i,j];
for i:=1 to n do
for j:=1 to n do
if c[i,j] mod 2=0 then c[i,j]:=5;
writeln('matricea obtinuta este: ');
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,aux,k,p:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
write('k='); readln(k);
write('p='); readln(p);
for i:=1 to n do
begin
aux:=x[p,i];
x[p,i]:=x[k,i];
x[k,i]:=aux;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:4);
writeln;
end;
end.

program matrice;
var x:array[1..100,1..100] of integer;
n,i,j,ii,k:integer;
ok:boolean;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
ok:=false;
for ii:=1 to x[i,j] div 2 do
if x[i,j]=ii*ii then ok:=true;
if ok then k:=k+1;
end;
writeln('Numarul de patrate perfecte din matrice este: ',k);
end.

bineinteles, numai ca sectiunea "bancuri" e in alta parte!

Gasesti aici o colectie de probleme in pascal rezolvate: Probleme pascal .