Разделить элементы массива на максимальный

Задача

Все элементы массива поделить на значение наибольшего элемента этого массива.

Решение

Задача состоит из двух подзадач:

  1. Поиск максимума.
  2. Деление на него элементов массива.
const
    M = 10;
var
    C: array[1..M] of word;
    maxC: word;
    i: byte;
 
begin
    randomize;
    maxC := 0;
    write('Исходный массив: ');
    for i := 1 to M do begin
        C[i] := random(1000);
        write (C[i]:4);
        if maxC < C[i] then 
            maxC := C[i];
    end;
    writeln;
    writeln('Максимум: ', maxC);
    write('Частные: ');
    for i := 1 to M do begin
        write (C[i]/maxC:6:2);
    end;
    writeln;
end.

Пример выполнения программы:

Исходный массив:  327 381 891 918 212 848 770 363 416 736
Максимум: 918
Частные:   0.36  0.42  0.97  1.00  0.23  0.92  0.84  0.40  0.45  0.80

Тема

Одномерные массивы

Уровень

Простые задачи

Последняя редакция