Materie: | Appunti |
Categoria: | Informatica |
Download: | 142 |
Data: | 14.07.2000 |
Numero di pagine: | 1 |
Formato di file: | .txt (File di testo) |
Download
Anteprima
esercizio-matrici_1.zip (Dimensione: 0.33 Kb)
trucheck.it_esercizio-sulle-matrici.txt 450 Bytes
readme.txt 59 Bytes
Testo
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.