Описание: использовать Чертежник алг нач сместиться на вектор(4,4) опустить перо сместиться на вектор(4,0) сместиться на вектор(0,4) сместиться на вектор(-4,0) сместиться на вектор(0,-4) сместиться на вектор(2,0) сместиться на вектор(2,2) сместиться на вектор(-2,2) сместиться на вектор(-2,-2) сместиться на вектор(2,-2) сместиться на вектор(-1,1) сместиться на вектор(2,0) сместиться на вектор(0,2) сместиться на вектор(-2,0) сместиться на вектор(0,-2) сместиться на вектор(1,0) сместиться на вектор(1,1) сместиться на вектор(-1,1) сместиться на вектор(-1,-1) сместиться на вектор(1,-1) кон Рисунок увидите сами при выполнении программы
Const m = 5; n = 4; Var A: array[1..m, 1..n] of real; i, j: integer; max: real; Begin for i := 1 to m do begin writeln(); for j := 1 to n do begin A[i,j] := random(200) - 100; write(A[i,j]:5, ' ');
if ((i=1) and (j=1)) or (max < abs(A[i,j])) then max:=abs(A[i,j]); end; end;
writeln(); writeln('Max = ', max);
for i := 1 to m do begin writeln(); for j := 1 to n do begin A[i,j] := A[i,j] / max; write(A[i,j]:5:2, ' '); end; end; End.