BILANGAN BULAT :
PROGRAM MENGHITUNG_NILAI_RATA_RATA;
USES WINCRT;
TYPE LARIK = ARRAY [1..100] OF INTEGER;
PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );
VAR
I : INTEGER;
BEGIN
FOR I:= 1 TO N DO
BEGIN
WRITE ('BILANGAN KE-',I,' = ');
READLN(BILANGAN[I]) ;
END;
END;
PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);
VAR
I, JUMLAH : INTEGER ;
RATA_RATA : REAL ;
BEGIN
JUMLAH := 0;
FOR I:= 1 TO N DO
JUMLAH := JUMLAH + BILANGAN[I];
RATA_RATA := JUMLAH/ N;
WRITELN;
WRITELN (' BANYAK BILANGAN : ',N:5);
WRITELN ('JUMLAH BILANGAN : ',JUMLAH:5);
WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:1);
END;
{MODUL UTAMA}
VAR
NILAI : LARIK ;
BANYAK : INTEGER ;
RATA_RATA : REAL;
BEGIN
WRITE (' BANYAKNYA BILANGAN : ');
READLN(BANYAK);
WRITELN;
INPUT_BILANGAN (BANYAK, NILAI);
HITUNG_RATA_RATA (BANYAK, NILAI);
END.
BILANGAN NEGATIF :
PROGRAM HITUNG_RATA_NEGATIF ;
USES WINCRT;
TYPE LARIK = ARRAY [1..100] OF INTEGER;
PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );
VAR
I : INTEGER;
BEGIN
FOR I:= 1 TO N DO
BEGIN
WRITE ('BILANGAN KE-',I,' = ');
READLN(BILANGAN[I]) ;
END;
END;
PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);
VAR
I, JUMLAH, CACAH : INTEGER ;
RATA_RATA : REAL ;
BEGIN
JUMLAH := 0;
CACAH := 0;
FOR I:= 1 TO N DO BEGIN
IF BILANGAN[I] < 0 THEN BEGIN
JUMLAH := JUMLAH + BILANGAN[I];
INC(CACAH);
END;
END;
RATA_RATA := JUMLAH/ CACAH ;
WRITELN;
WRITELN (' BANYAK BILANGAN : ',N:5);
WRITELN(' BANYAK BIL NEGATIF : ',CACAH);
WRITELN ('JUMLAH BILANGAN NEGATIF : ',JUMLAH:5);
WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);
END;
{MODUL UTAMA}
VAR
NILAI : LARIK ;
BANYAK : INTEGER ;
RATA_RATA : REAL;
BEGIN
WRITE (' BANYAKNYA BILANGAN : ');
READLN(BANYAK);
WRITELN;
INPUT_BILANGAN (BANYAK, NILAI);
HITUNG_RATA_RATA (BANYAK, NILAI);
END.
BILANGAN POSITIF :
PROGRAM MENGHITUNG_NILAI_RATA_RATA;
USES WINCRT;
TYPE LARIK = ARRAY [1..100] OF INTEGER;
PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );
VAR
I : INTEGER;
BEGIN
FOR I:= 1 TO N DO
BEGIN
WRITE ('BILANGAN KE-',I,' = ');
READLN(BILANGAN[I]) ;
END;
END;
PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);
VAR
I, JUMLAH, CACAH : INTEGER ;
RATA_RATA : REAL ;
BEGIN
JUMLAH := 0;
CACAH := 0;
FOR I:= 1 TO N DO BEGIN
IF BILANGAN[I] >= 1 THEN BEGIN
JUMLAH := JUMLAH + BILANGAN[I];
INC(CACAH);
END;
END;
RATA_RATA := JUMLAH/ CACAH ;
WRITELN;
WRITELN (' BANYAK BILANGAN : ',N:5);
WRITELN(' BANYAK BIL POSITIF : ',CACAH);
WRITELN ('JUMLAH BILANGAN POSITIF : ',JUMLAH:5);
WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);
END;
{MODUL UTAMA}
VAR
NILAI : LARIK ;
BANYAK : INTEGER ;
RATA_RATA : REAL;
BEGIN
WRITE (' BANYAKNYA BILANGAN : ');
READLN(BANYAK);
WRITELN;
INPUT_BILANGAN (BANYAK, NILAI);
HITUNG_RATA_RATA (BANYAK, NILAI);
END.
BILANGAN GENAP :
PROGRAM MENGHITUNG_NILAI_RATA_RATA;
USES WINCRT;
TYPE LARIK = ARRAY [1..100] OF INTEGER;
PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );
VAR
I : INTEGER;
BEGIN
FOR I:= 1 TO N DO
BEGIN
WRITE ('BILANGAN KE-',I,' = ');
READLN(BILANGAN[I]) ;
END;
END;
PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);
VAR
I, JUMLAH, CACAH : INTEGER ;
RATA_RATA : REAL ;
BEGIN
JUMLAH := 0;
CACAH := 0;
FOR I:= 1 TO N DO BEGIN
IF BILANGAN[I] MOD 2 = 0 THEN BEGIN
JUMLAH := JUMLAH + BILANGAN[I];
INC(CACAH);
END;
END;
RATA_RATA := JUMLAH/ CACAH ;
WRITELN;
WRITELN (' BANYAK BILANGAN : ',N:5);
WRITELN(' BANYAK BIL GENAP : ',CACAH);
WRITELN ('JUMLAH BILANGAN GENAP : ',JUMLAH:5);
WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);
END;
{MODUL UTAMA}
VAR
NILAI : LARIK ;
BANYAK : INTEGER ;
RATA_RATA : REAL;
BEGIN
WRITE (' BANYAKNYA BILANGAN : ');
READLN(BANYAK);
WRITELN;
INPUT_BILANGAN (BANYAK, NILAI);
HITUNG_RATA_RATA (BANYAK, NILAI);
END.
BILANGAN GANJIL :
PROGRAM MENGHITUNG_NILAI_RATA_RATA;
USES WINCRT;
TYPE LARIK = ARRAY [1..100] OF INTEGER;
PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );
VAR
I : INTEGER;
BEGIN
FOR I:= 1 TO N DO
BEGIN
WRITE ('BILANGAN KE-',I,' = ');
READLN(BILANGAN[I]) ;
END;
END;
PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);
VAR
I, JUMLAH, CACAH : INTEGER ;
RATA_RATA : REAL ;
BEGIN
JUMLAH := 0;
CACAH := 0;
FOR I:= 1 TO N DO BEGIN
IF BILANGAN[I] MOD 2 = 1 THEN BEGIN
JUMLAH := JUMLAH + BILANGAN[I];
INC(CACAH);
END;
END;
RATA_RATA := JUMLAH/ CACAH ;
WRITELN;
WRITELN (' BANYAK BILANGAN : ',N:5);
WRITELN(' BANYAK BIL GANJIL : ',CACAH);
WRITELN ('JUMLAH BILANGAN GANJIL : ',JUMLAH:5);
WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);
END;
{MODUL UTAMA}
VAR
NILAI : LARIK ;
BANYAK : INTEGER ;
RATA_RATA : REAL;
BEGIN
WRITE (' BANYAKNYA BILANGAN : ');
READLN(BANYAK);
WRITELN;
INPUT_BILANGAN (BANYAK, NILAI);
HITUNG_RATA_RATA (BANYAK, NILAI);
END.