Дан массив 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.

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.

Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer; 
begin 
kc:=1; 
kn:=1; 
k1:=0; 
k2:=0; 
a:=0; 
b:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
c:=x mod 10; 
if c mod 2=0 then begin 
inc(k1); 
a:=a+c*kc; 
kc:=kc*10; 
end; 
if c mod 2<>0 then begin 
inc(k2); 
b:=b+c*kn; 
kn:=kn*10; 
end; 
x:=x div 10; 
end; 
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); 
writeln(a,' ', b); 
end.