const Sz = 50; // Размер массива

var 

 a: array $$\mathrm{1..}Sz$$ of integer;

 N: integer; // Количество элементов в массиве

 i: integer;

begin

 N := 50;

 for i:=1 to N do

  a$$i$$ := Random$100$-50;

 writeln${}^{\prime }Элементымассива{:}^{\prime }$;

 for i:=1 to N do

  write(a[i],' ');

end.