Одномерный массив из вещественных элементов.

program Project1;
 
type vector = array[1..1000] of real;
var 
    a:vector;
    n:integer;
 sum,pro : real;
procedure ShowArray(a:vector;n:integer);
var i:integer;
begin
    for i:=1 to n do 
  begin
    write(a[i]:8:2);
 end;
 writeln;
end;
procedure InitArray(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
  begin
     write('a[',i,']=');
     readln(a[i]);  
 end;
end;
 {funktsia calculeaza medie al elementilor unlul vector}
function SummaElement(a:vector;n:integer):real;
var i:integer;
    sum:real;
  flag:integer;
begin
    sum:=0;
  flag := 0;
    for i:=1 to n do
  begin
    if(a[i] =0)and(flag = 0) then
    begin
      flag := 1;
    end
    else
      if(a[i] = 0)and(flag = 1) then
       begin
         flag := 2;
       end;
 
    if(flag= 1) then
       sum := sum + a[i];
 
  end;
     SummaElement := sum;
end;
function MultArray(a:vector;n:integer):real;
var i:integer;
    p:real;
begin
  p := 1;
   for i:=1 to n do
   begin
    if (not odd(i)) then
        p := p*a[i];
   end;
    MultArray := p;
end;
begin
write('n=');readln(n);
 InitArray(a,n);
 ShowArray(a,n);
 sum :=   SummaElement(a,n);
 pro :=   MultArray(a,n);
 writeln('Summa elementov =',sum:8:2);
  writeln('proizvedenie elementov =',pro:8:2);
 readln;
end.

uses crt;
const n=20;
var
x:array[1..n] of integer;
i,mx,imx,sm:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(100);
  write(x[i]:4);
 end;
writeln;
mx:=x[1];imx:=1;
for i:=1 to n do
if x[i]>mx then
 begin
  mx:=x[i];{находим максимальный}
  imx:=i;{его индекс}
 end;
writeln('Максимальный элемент=',mx,' его индкс=',imx);
sm:=0;
for i:=1 to imx-1 do
sm:=sm+x[i];{считаем сумму от 1го до перед макс}
writeln('Сумма элементов, предшествующих максимальному=',sm);
x[imx]:=sm;{заменяем макс на сумму}
writeln;
writeln('Измененый массив:');
for i:=1 to n do
write(x[i]:4);
readln
end.