одномерные массивы

[britney]

Дан массив С(m), m<=17. Найти произведение всех элементов,предшествующих первой нулевой компоненте, и сумму последующих. Вывести на печать исходный массив и полученные произведение и сумму.

[Lemo]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const
  n=10;
var
a:array [1..n] of integer;
i,sum,k:integer;
pr:longint;
alp:Boolean;
begin
 Randomize;
 for I := 1 to n do
   begin
     a[i]:=random(25);
     write(a[i],' ');

   end;

   alp:=false;
   k:=0;
   pr:=1;
   sum:=0;
   for i := 1 to n do
     begin
       if a[i]<>0 then
          begin
           pr:=pr*a[i];
           inc(k);
          end
       else
         begin
           alp:=true;
           break;
         end;

     end;

     if alp then

     for i := k+1 to n do
              sum:=sum+a[i];



     writeln;
     writeLn('ProizvedeniE : ',pr);
     write('Summa : ',sum);
  readln;
end.

Но есть недостаток:
Перемення pr, несет в себе значения типа longint, и если произведенние выйдет за границу данного типа, то резалтом будет отрицательное число!
Что бы я вам посоветывал:
1.

a[i]:=random(25);

сделать не 25, а 10-15 где то, тойсть массив заполниться числами от 0 до 10 или 15.
2. Уменшить размерность массива...
Вроде все!

[britney]

огромное спасибо
спасли меня)