Два в одном:

var

  a: array [1..10] of integer;

  s, i, max: integer;

begin

  max:= - 16;

  for i:= 1 to 10 do

  begin

    a[i]:= random(50) - 15;

    writeln(a[i]);

    s:= s + a[i];

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

  end;

  writeln('Сумма элементов массива: ', s);

  writeln('Максимальный элемент массива: ', max);

end.

program Mas1;

  uses Crt;

  const n:=10;

  Type Ar=array [1..n] of real;

  var v:Ar;

        s,max:real;

        i:integer;

Begin

   Clrscr;

   s:=0;

   max:=0;

   i:=1;

   For i:=1 to n do

    begin

    v[i]:=50*random-15;

    s:=s+v[i];

    If max

    end;

   writeln ('S= ', s:6:2,'   Max=  ', max);

Readln;

End.