Составьте программу вычисления суммы тех элементов одномерного массива А(N), что...

Question

Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым элементом данного массива.

Задача на языке Паскаль, помогите пожалуйста

Answer 1

Const
  n=15;
var
  a:array[1..n] of integer;
  i,k,s:integer;
begin
  Randomize;
  Write('Массив: ');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]=0 then k:=i;
    end;
  Writeln;
  s:=0;
  for i:=1 to k-1 do s:=s+a[i];
  Writeln('сумма элементов перед последним нулевым равна ',s)
end.

Пример
Массив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4
сумма элементов перед последним нулевым равна 6