Question

Дан массив A, состоящий из N элементов. Элементы массива - произвольные   целые числа. Заменить нулями все элементы массива, расположенные между   минимальным и максимальным элементами массива, кроме их самих.   Измененный массив вывести на экран

Answer 1

USES Crt;
 CONST  N=15;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I, IMIN, IMAX, k1, k2: BYTE;   MIN, MAX:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(270);  Write(A[I]:4);
   end;   WriteLn;
   MIN:=A[1]; MAX:=A[1];   IMIN:=1; IMAX:=1;
   { нахождение минимального и максимального значения и их индексов }
   FOR I:=2 TO N DO Begin
     IF A[I]<MIN THEN Begin MIN:=A[I];  IMIN:=I;  End;
     IF A[I]>MAX THEN Begin MAX:=A[I]; IMAX:=I; End;
   End;
   WriteLn(' Минимальное значение = ',MIN);
   WriteLn(' Максимальное значение = ',MAX);
   { замена нулями элементов, расположенных между минимальным и максимальным
     значением }
   IF IMIN<IMAX THEN Begin K1:=IMIN+1; K2:=IMAX-1;  End
                             ELSE  Begin  K1:=IMAX+1; K2:=IMIN-1;  End;
   FOR I:=K1 TO K2 DO
     A[I]:=0;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.