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

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

Задача 1) 36 (это 24₁₆).

Задача 2) 38 (это 26₁₆).

Объяснение:

Задача 1)

24₁₆  = 36₁₀ (24₁₆ = 16¹ * 2 + 16⁰ * 4 = 32+4 = 36₁₀)

37₈ = 31₁₀ (37₈ = 8¹ * 3 + 8⁰ * 7 = 24 + 7 = 31₁₀)

100001₂ = 33₁₀ (100001₂ = 2⁵ * 1 + 2⁴ * 0 + 2³ * 0 + 2² * 0 + 2¹ * 0 + 2⁰ * 1 = 32 + 0 + 0 + 0 + 0 + 1 = 33₁₀)

36 < 33 < 31

Задача 2)

26₁₆ = 38₁₀ (26₁₆ = 16¹ * 2 + 16⁰ * 6 = 32+6 = 38₁₀)

41₈ = 33₁₀ (41₈ = 8¹ * 4 + 8⁰ * 1 = 32+1 = 33₁₀)

100011₂ = 35₁₀ (100011₂ = 2⁵ * 1 + 2⁴ * 0 + 2³ * 0 + 2² * 0 + 2¹ * 1 + 2⁰ * 1  = 32 + 0 + 0 + 0 + 2 + 1 = 35₁₀)

38 < 35 < 33

1.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые четные и двухначные');
for i:=1 to n do
if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4);
end.
2.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые кратны 4 и трехзначные');
for i:=1 to n do
if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4);
end.
3.
var i,a,m:integer;
begin
m:=3;
for i:=1 to 10 do
writeln(i,' * ',m,' = ',i*m);
end.