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

USES Crt;
nbsp;CONST nbsp;N=15;
nbsp;VAR
nbsp;nbsp;nbsp;A:ARRAY[0..N] OF INTEGER;
nbsp;nbsp;nbsp;I, IMIN, IMAX, k1, k2: BYTE; nbsp;nbsp;MIN, MAX: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;A[I]:=Random(270); nbsp;Write(A[I]:4);
nbsp;nbsp;nbsp;end; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;MIN:=A[1]; MAX:=A[1]; nbsp;nbsp;IMIN:=1; IMAX:=1;
nbsp;nbsp;nbsp; нахождение минимального и наибольшего значения и их индексов
nbsp;nbsp;nbsp;FOR I:=2 TO N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]lt;MIN THEN Begin MIN:=A[I]; nbsp;IMIN:=I; nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]gt;MAX THEN Begin MAX:=A[I]; IMAX:=I; End;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Минимальное значение = ,MIN);
nbsp;nbsp;nbsp;WriteLn( Наибольшее значение = ,MAX);
nbsp;nbsp;nbsp; подмена нулями частей, расположенных между наименьшим и наибольшим
nbsp;nbsp;nbsp;nbsp;nbsp;значением
nbsp;nbsp;nbsp;IF IMINlt;IMAX THEN Begin K1:=IMIN+1; K2:=IMAX-1; nbsp;End
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ELSE nbsp;Begin nbsp;K1:=IMAX+1; K2:=IMIN-1; nbsp;End;
nbsp;nbsp;nbsp;FOR I:=K1 TO K2 DO
nbsp;nbsp;nbsp;nbsp;nbsp;A[I]:=0;
nbsp;nbsp;nbsp;WriteLn( Измененный массив);
nbsp;nbsp;nbsp;FOR I:=1 TO N DO
nbsp;nbsp;nbsp;nbsp;nbsp;Write(A[I]:4);
nbsp;END.