Дан массив K, состоящий из 45 элементов. Элементы массива - произвольные целые числа. Определить минимальный

174

359

Посмотреть ответы 2

Ответы на вопрос:

лисёнок333

Другие предметы

4,4(99 оценок)

USES Crt;
VAR
   K:ARRAY[0..45] OF INTEGER;
   I,IND: BYTE;   MIN:INTEGER;
BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 45 DO Begin
     K[I]:=Random(35)+6;   Write(K[I]:3);
   End;   WriteLn;
   MIN:=K[1];   IND:=1;
   { нахождение минимального значения и его индекса }
   FOR I:=2 TO 45 DO
     IF K[I]<MIN THEN Begin MIN:=K[I]; IND:=I; End;
   WriteLn(' Минимальное значение = ',MIN);
   WriteLn(' Индекс минимального значения = ',IND);
END.