Для массива X=(x1,x2,..,x50) найти наибольший элемент массива.Все элементы массива поделить на значение наибольшего элемента. Помогите пожалуйста)
Для массива X=(x1,x2,..,x50) найти наибольший элемент массива.Все элементы массива поделить на значение наибольшего элемента.
Помогите пожалуйста)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы