Дан массив к(n), n=12. известно, что в массиве есть один элемент, значение которого равно 100. определить его порядковый номер. вычислить сумму значений элементов массива, стоящих в массиве перед элементом, значение которого равно 100.

var

i, imax, sum: integer;

mas: array[1..12] of integer;

begin

for i:=1 to 12 do

read(mas[i]);

writeln;

for i:=1 to 12 do

if (mas[i]=100) then

begin

 imax:= i;

 break;

end;

for i:=1 to imax-1 do

inc(sum, mas[i]);

write('Сумма = ', sum);

end.