Сформировать одномерный массив из элементов массива T (4,4), умноженных на 0,25

var

a:array [1 ... 16] of real;

t:array [1 ... 4,1 ... 4] of integer;

i, j, k:byte;

begin

randomize;

for i:=1 to 4 do begin

for j:=1 to 4 do begin

t[i, j]:=random (9) + 1;

write (t[i, j]:4) ;

end;

writeln;

end;

k:=1;

for i:=1 to 4 do

for j:=1 to 4 do begin

a[k]:=t[i, j]*0.25;

write (a[k],' ') ;

k:=k+1;

end;

readln;

end.