Дан массив B, состоящий из N элементов. Элементы массива - произвольные

USES Crt;
nbsp;CONST nbsp;N=20;
nbsp;VAR
nbsp;nbsp;nbsp;B:ARRAY[0..N] OF INTEGER;
nbsp;nbsp;nbsp;I,IND: BYTE; nbsp;nbsp;MAX,S:INTEGER;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp;WriteLn( Значения элементов массива);
nbsp;nbsp;nbsp;FOR I:=1 TO N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;B[I]:=Random(35); nbsp;nbsp;nbsp;nbsp;Write(B[I]:3);
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;MAX:=B[1]; nbsp;nbsp;IND:=1;
nbsp;nbsp;nbsp; нахождение максимального значения и его индекса
nbsp;nbsp;nbsp;FOR I:=2 TO N DO
nbsp;nbsp;nbsp;nbsp;nbsp;IF B[I]gt;MAX THEN Begin MAX:=B[I]; IND:=I; nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Наибольшее значение = ,MAX);
nbsp;nbsp;nbsp; нахождение суммы элементов, расположенных до наибольшего элемента
nbsp;nbsp;nbsp;S:=0;
nbsp;nbsp;nbsp;FOR I:=1 TO IND-1 DO
nbsp;nbsp;nbsp;nbsp;nbsp;S:=S+B[I];
nbsp;nbsp;nbsp;WriteLn( Cумма элементов, расположенных до максимального элемента =,S);
nbsp;END.