Originariamente inviato da giuseppe214
Grazie per le risposte

ho fatto così ma non va

program trasferisci_matrice;
uses crt;
var
matrice:array[1..4,1..4] of real;
vettore:array[1..16] of real;
i,m,n:integer;
begin
clrscr;
for m:=1 to 4 do
begin
for n:=1 to 4 do
begin
writeln('Inserisci il ',n,' ø elemento della ',m,' colonna');
read(matrice[m,n]);
vettore[m*n]:=matrice[m,n];
readln;
end;
end;
for i:=1 to 16 do
writeln(vettore[i]);
readln;
end.
Giusta osservazione quella di pallopinco ... in realta' deve essere

vettore[(m-1)*4+n]:=matrice[m,n];