Для массива x=(x1,) найти наибольший элемент массива.все элементы массива поделить на значение наибольшего элемента. )

111

212

Посмотреть ответы 2

Ответы на вопрос:

Murat20061

Информатика

4,5(27 оценок)

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.