Primjer računanje maksimuma niza

  

Izračunati najveći član cjelobrojnog niza X od n elemenata.
PROGRAM MaxNiza;
USES WinCrt;
CONST n = 5;
VAR
    i, tmax : INTEGER;
    X : ARRAY [1..n] OF INTEGER;

  BEGIN
  WRITELN('NAJVECI CLAN NIZA');

    FOR i := 1 TO n DO {ulaz-UNOS niza}
      BEGIN
     WRITE(i,' --> ');
     READLN(X[i]);
     END;

  tmax := X[1];
    FOR i := 2 TO n DO {trazenje Max niza}
       IF tmax < X[i] THEN tmax := X[i];   {tmax samo kad je predhodni manji}

 WRITELN('NAJVECI CLAN NIZA ',tmax);
 END.
 

 

Na start Informatika

copyright M2M
BL-2011-13