Const n = 50; var x: array[1..n] of real; max: real; i: integer; begin writeln('введите ', n, ' элементов массива'); max : = -1e20; { число, заведомо меньшее вводимых } for i : = 1 to n do begin read(x[i]); if max < x[i] then max : = x[i] end; writeln; for i : = 1 to n do begin x[i] : = x[i] / max; write(x[i], ' ') end; writeln end.
дисней точно думаю !