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

Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-50,50); a.Println.Select(t->t/a.Max).Println
end.

Пример
-47 -33 32 47 50 47 49 -8 28 33
-0.94 -0.66 0.64 0.94 1 0.94 0.98 -0.16 0.56 0.66

Answer 2

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.