Question

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

Answer 1

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

Answer 2

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.