10.2.. Naći najmanji član i indeks najmanjeg člana niza.

Opis rješenja: Razlika u odnosu na najveći je tmin i logički izraz

Listing programa:

PROGRAM P10511037;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i, tmin, ind : INTEGER;
  X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Najmanji clan niza i indeks');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  tmin := X[1];
  ind := 1;
  FOR i := 2 TO n DO
    IF tmin > X[i] THEN
      BEGIN
        tmin := X[i];
        ind := i;
      END;
  WRITELN('Najmanji clan niza ', tmin, ' indeks najmanjeg je ', ind);
END.

Ispis na ekranu:

Index