X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa2-teorijske-vezbe.git;a=blobdiff_plain;f=05.%20NizDin%2Fkod%2FNIZDIN.MOD;fp=05.%20NizDin%2Fkod%2FNIZDIN.MOD;h=0000000000000000000000000000000000000000;hp=0e63683fc43316c24b8e52b0086cba6038283271;hb=8a74ce20c68b61b8992a348e34c43671116e9549;hpb=a35f3e51789ace81cea01e548963568da918635f

diff --git a/05. NizDin/kod/NIZDIN.MOD b/05. NizDin/kod/NIZDIN.MOD
deleted file mode 100644
index 0e63683..0000000
--- a/05. NizDin/kod/NIZDIN.MOD	
+++ /dev/null
@@ -1,65 +0,0 @@
-MODULE NizDin;
-
-  FROM IO IMPORT
-    WrStr, RdInt, WrInt;
-
-  CONST
-    MaxN = 1000;
-
-  VAR
-    a, b: ARRAY [0 .. MaxN] OF INTEGER;
-    (* b[i] je suma elemenata u resenju za *)
-    (* deo niza 'a' do 'i'-tog elementa    *)
-    n: INTEGER;
-
-  PROCEDURE Unos;
-    VAR
-      i: INTEGER;
-  BEGIN
-    WrStr('Unesite N: ');
-    n:= RdInt();
-    FOR i:= 1 TO n DO
-      WrStr('A[');
-      WrInt(i, 1);
-      WrStr('] = ');
-      a[i]:= RdInt();
-    END;
-  END Unos;
-  
-  PROCEDURE Resi;
-    VAR
-      i: INTEGER;
-  BEGIN
-    b[0]:= 0;
-    IF a[1] > 0 THEN
-      b[1]:= a[1];
-    ELSE
-      b[1]:= 0;
-    END;
-    FOR i:= 2 TO n DO
-      IF b[i - 2] + a[i] > b[i - 1] THEN
-        b[i]:= b[i - 2] + a[i];
-      ELSE
-        b[i]:= b[i - 1];
-      END
-    END;
-  END Resi;
-
-  PROCEDURE Ispis(n: INTEGER);
-  BEGIN
-    IF n > 0 THEN
-      IF b[n] = b[n - 1] THEN
-        Ispis(n - 1);
-      ELSE
-        Ispis(n - 2);
-        WrInt(a[n], 8);
-      END;
-    END;
-  END Ispis;
-
-BEGIN
-  Unos;
-  Resi;
-  WrStr('Podniz: ');
-  Ispis(n);
-END NizDin.