Question

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

Answer 1

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.