Elaborati un program Pascal care determină produsul a unei matrice de ordinul 3 de numere întregi cu numere întregi!
Urgent!!
Răspunsuri la întrebare
sunt propuse doua variante din faptul ca se stie din start dimensiunile matricei se poate evita declararea matricei.... si a doua varianta foloseste vector bidimensional...
***************************************************
PROGRAM matrice3x3;
var i, num, produs: integer;
begin
write('introdu 9 elemente intregi ale matricei: ');
produs:=1;
for i:=1 to 9 do
begin
read(num);
produs:=produs*num;
end;
writeln('produsul = ', produs);
end.
****************************************************
program produs2;
var i,j, produs:integer;
a: array[1..3,1..3] of integer;
begin
writeln('introdu 9 elemente intregi ale matricei: ');
produs:=1;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write('a[',i,',',j,']='); read(a[i,j]);
produs:=produs*a[i,j];
end;
end;
writeln('produsul= ', produs);
end.