Программирование типовых алгоритмов обработки одномерных массивов

const Sz = 100; // Размер массива
 
var
a: array [1..Sz] of integer;
b: array [1..Sz] of real;
N: integer; // Количество элементов в массиве
i: integer;
S: real;
k: integer;
 
begin
S:=0;
N:=10;
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
for i:=1 to N do
S:=a[i]+S;
writeln(' ');
writeln('Сумма элементов: ', S);
for i:=1 to N do
b[i]:=a[i]/S;
writeln('Вывод элементов нового массива: ') ;
for i:=1 to N do
write(b[i],' ');
 
 
end.

const
  Sz = 100;// Размер массива
 
var
  a: array [1..Sz] of real;
  N: integer; // Количество элементов в массиве
  i: integer;
  S: real;
 
begin
  S := 0;
  N := 10;
  write('Введите элементы массива: ');
  for i := 1 to N do
    readln(a[i]);
  writeln('Вывод элементов массива: ');
  for i := 1 to N do
  begin
    write(a[i], ' ');
    S := a[i] + S;
  end;    
  writeln;
  writeln('Сумма элементов: ', S);
  writeln('Вывод элементов нового массива: ');
  for i := 1 to N do
  begin
    a[i] := a[i] / S;
    write(a[i]:8:2);
  end;
end.