Разделить элементы массива на максимальный
Все элементы массива поделить на значение наибольшего элемента этого массива.
Задача состоит из двух подзадач:
- Поиск максимума.
- Деление на него элементов массива.
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