Дан массив A(n). Создать новый массив, элементами которого являются произведение A(i) на максимальный элемент массив A

ответ:  Pascal ABC.Net

Program Zadacha;

var a,b:array[1..1000] of integer;

      n, i, max:integer;

BEGIN

            write('Задайте количество элементов массива N<1000: ');

            read(n);

            max:=-30000;

            for i:=1 to n do

            begin write('Задайте ',i,'-й элемент массива: ');

                      read(a[i]);

                      if a[i]>max then max:=a[i];

            end;          

            for i:=1 to n do

            begin b[i]:=a[i]*max;

                      writeln(b[i]);

            end;

END.

Объяснение:

                                          PascalABC.NET

begin

 var n := ReadInteger('N =');

 var A := ReadArrInteger('Введите массив:',n);

 var M := new integer[n];

 for var i := 0 to n - 1 do

   M[i] := A[i] * a.Max;

 print('Новый масcив:',m)

end.