vettori e matrici

esci algebraturbo.htm

PROGRAM matri8;
(* caricamento e stampa matrice valori interi *)
uses crt;
type matrice=array[1..5,1..5] of integer;
var tabella:matrice;
h,k:integer;
begin
writeln('scrivi valori per creare la matrice 5*5');
for h:=1 to 5 do
for k:=1 to 5 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 5 do
begin
for k:=1 to 5 do
write(tabella[h,k]:5);
writeln;
end;
writeln('premi invio');
readln;
end.