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

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

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

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

USES Crt;
 CONST   N=15;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,IND: BYTE;   MIN:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(‘ Значения элементов массива’);
   FOR I:=1 TO N DO Begin
     A[I]:=Random(400);   Write(A[I]:4);
   End;   WriteLn;
   MIN:=A[1];   IND:=1;
   { нахождение минимального значения и его индекса }
   FOR I:=2 TO N DO
     IF A[I]    WriteLn(‘ Минимальное значение = ‘,MIN);
   { замена нулями элементов, расположенных за минимальным значением }
   FOR I:=IND+1 TO N DO
     A[I]:=0;
   WriteLn(‘ Измененный массив’);
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.

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