10.1.. Učitati članove niza. Izračunati i ispisati sumu članova niza koji nisu djeljivi sa 2 (neparan).

Opis programa: Kreiranje kumulativne sume se izvodi u naredbi s := s + X[i];. Početana vrijednost sume je nula s := 0;. Provjera koji nisu djeljivosti sa 2 - neparan se izvodi sa naradbom X[i] MOD 2 <> 0.

Listing programa:

PROGRAM P10112047;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, s : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Suma clanova niza - clan neparan');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  s := 0;
  FOR i := 1 TO n DO  {suma}
    IF X[i] MOD 2 <> 0 THEN
      s  := s  + X[i] ;
  WRITELN('Suma clanova niza - clan neparan ',s);
END.

Ispis na ekranu:

Index