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

Const

N = 12;

Var

K:array[1 ... N] of integer;

i:integer;

S:real;

Begin

Write ('Введите массив K (', N,') : ') ;

For i: = 1 to N do

Read (K[i]) ;

S:=0;

i:=1;

if K[i] = 100 then

Write ('Перед массивом со значением 100 нет элементов.')

else

Begin

While K[i]100 do

Begin

S:=S+K[i];

i:=i+1;

End;

WriteLn ('Номер элемента со значением 100: ', i) ;

Write ('Искомая сумма: ', S) ;

End;

End.

Const n=12;

var a:array[1 ... n] of integer;

i, s:integer;

begin

Randomize;

writeln ('Массив A:') ;

for i:=1 to n do a[i]:=random (101) ;

a[random (n) + 1]:=100;

for i:=1 to n do write (a[i]:4) ;

writeln;

s:=0; i:=1;

while a[i]100 do

begin s:=s+a[i]; i:=i+1; end;

writeln ('Номер элемента = 100: ', i) ;

writeln ('s = ', s) ;

end.

Пример:

Массив A:

76 40 46 50 100 96 86 29 4 13 80 98

Номер элемента = 100: 5

s = 212