Question

Создать массив из 10 случайных чисел. Вывести его на экран. Все элементы массива поделить на значение наибольшего элемента этого массива и так-же вывести на экран.срочноо

Answer 1

var a:array[1..10] of Real;
i: Integer;
max:real;
begin
max:=0;
WriteLn('Исходный массив');
for i:=1 to 10 do
begin
a[i] := random(10);
Write(a[i]:3:1,' ');
if a[i]>max then max:=a[i];
end;
WriteLn;
WriteLn('Итоговый массив');

for i:=1 to 10 do
begin
a[i] := a[i]/max;
Write(a[i]:3:1,' ');
end;
end.