vettori e matrici

esci algebraturbo.htm

PROGRAM matri9;
(* caricamento e stampa matrice valori interi *)
uses crt;
type matrice=array[1..50,1..50] of integer;
var tabella:matrice;
h,k,righe,colonne:integer;
begin
clrscr;
write('scrivi numero righe per matrice =');readln(righe);
write('scrivi numero colonne per matrice=');readln(colonne);
writeln('scrivi valori per creare la matrice');
for h:=1 to righe do
for k:=1 to colonne do
begin
write('scrivi valore=',h,'/',k,' = ');readln(tabella[h,k]);
end;
clrscr;
writeln('stampa la matrice con i valori inseriti');
for h:=1 to righe do
begin
for k:=1 to colonne do
write(tabella[h,k]:5);
writeln;
end;
writeln('premi invio');
readln;
end.