10.1.. Učitati članove niza. Izračunati i ispisati sumu članova niza sa parnim indeksom.

Opis programa: Kreiranje kumulativne sume se izvodi u naredbi s := s + X[i];. Početana vrijednost sume je nula s := 0;. Provjera parnosti indeksa se izvodi sa naradbom i MOD 2 = 0.

Listing programa

Opis

PROGRAM NIZ_Sip;

Zaglavlje

CONST

 

  n = 5;

Broj članova niza

VAR

 

 i, s : INTEGER;

Indeks, suma

 X : ARRAY [1..n] OF INTEGER;

Niz

BEGIN

 

  WRITELN('Suma clanova niza s parnim indeksom');

Naslov

  FOR i := 1 TO n DO  {ulaz}

Upis članova niza

    BEGIN

 

      WRITE(i,' --> ');

 

      READLN(X[i]);

 

    END;

 

  s := 0;

Početna vrijednosti sume

  FOR i := 1 TO n DO  {suma}

 

    IF i mod 2 = 0 THEN

Izbor člana sa parnim indeks.

      s  := s  + X[i] ;

Sabiranje izabranog člana niza

  WRITELN('Suma clanova niza s parnim indeksom ',s);

Izračunata suma

END.

Kraj programa

Listing programa:

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

Ispis na ekranu:

Index