-
.
Esercizio sulle matrici
program matrice;
uses crt;
const nr=6;nc=3;
type mat=array[1..nr,1..nc] of integer;
var m:mat;j,i:byte;som:integer;
begin
clrscr;
randomize;
som:=0;
for i:=1 to nr do
for j:=1 to nc do
begin
m[i,j]:=random(34);
write(m[i,j]:3);
som:=som+m[i,j]
end;
writeln;
textcolor(red);
writeln(som);
readln
end.
.