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

Вопрос посетителя

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

Ответ эксперта

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]      IF A[I]>MAX THEN Begin MAX:=A[I]; IMAX:=I; End;
   End;
   WriteLn(‘ Минимальное значение = ‘,MIN);
   WriteLn(‘ Максимальное значение = ‘,MAX);
   { замена нулями элементов, расположенных между минимальным и максимальным
     значением }
   IF IMIN                              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.

Скачать ответРаспечатать решение