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

const n=12;var a:array[1..n] of integer;i,s:integer; beginRandomize;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: 5s = 212

Const   N = 12;Var   K:array[1..N] of integer;   i:integer;   S:real;BeginWrite('Введите массив 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.