Реферат. Урок 1 Изучи предложенный фрагмент реферата и определи вид сноски..

​

Program lab5; const n=5; var p: array [1..n,1..n] of real; i, j : integer;   begin randomize; writeln('исходный массив p: '); for i: =1 to n do    begin   for j: =1 to n do   begin   p[i,j]: =10*random;   write(p[i,j]: 5: 1);   end;   writeln;   end; for i: =1 to n do    for j: =1 to n do   if j> i then p[i,j]: =0 else p[i,j]: =round(p[i,j]); writeln('изменённый массив p: '); for i: =1 to n do    begin   for j: =1 to n do write(p[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив p:   6.0   6.5   4.2   0.6   4.6   5.7   8.8   0.3   6.2   9.0   3.0   5.3   4.0   6.0   4.8   6.0   3.0   5.0   5.3   8.7   8.9   8.8   6.8   5.3   5.1 изменённый массив p:   6.0   0.0   0.0   0.0   0.0   6.0   9.0   0.0   0.0   0.0   3.0   5.0   4.0   0.0   0.0   6.0   3.0   5.0   5.0   0.0   9.0   9.0   7.0   5.0   5.0