Question

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

Answer 1

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.