10.1.. Učitati članove niza. Izračunati i ispisati sumu parnih i neparnih članova niza odvojeno.

Opis programa:

Listing programa:

PROGRAM P10112049;
USES
  WinCrt;
CONST 
  n = 15;
VAR
 i : INTEGER;
 x : ARRAY [1..n] OF INTEGER;
 s,s1: longint;
BEGIN
  WRITELN('Upisati clanove niza: ');
  FOR i := 1 TO n DO
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  s:=0;
  s1:=0;
  FOR i:=1 TO n DO
    BEGIN
    IF x[i] MOD 2 = 0 THEN
      s:= s + x[i];
    IF x[i] MOD 2 <> 0 THEN
      s1:= s1 + x[i];
    END;
  WRITELN('Suma parnih clanova niza: ',s);
  WRITELN('Suma neparnih clanova niza: ',s1);
END.

Ispis na ekranu:

Index