Advertisement
dewok_satria21

Untitled

Nov 17th, 2018
181
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.63 KB | None | 0 0
  1. program aray1;
  2.     type typeArray = Array of longint;
  3.     var
  4.         n, i, j, max, negatif, positif, total, nilaiKecil: integer;
  5.         rata2: real;
  6.         dataArray : typeArray;
  7.    
  8.     begin
  9.         max     := 0;
  10.         negatif := 0;
  11.         positif := 0;
  12.         total   := 0;
  13.         rata2   := 0;
  14.         nilaiKecil := 0;
  15.         write('Masukan jumlah data input: ');
  16.         readln(n);
  17.         setlength(dataArray,n);        
  18.         for i:= 1 to n do
  19.         begin
  20.             write('Indeks[',i,'] : ');
  21.             readln(j);
  22.             dataArray[i]:=j;
  23.         end;
  24.        
  25.         for i:= 1 to n do
  26.         begin
  27.             if (dataArray[i] > max) then
  28.                 begin
  29.                     max := dataArray[i];
  30.                 end;
  31.            
  32.             if (dataArray[i] < nilaiKecil) then
  33.                 begin
  34.                     negatif := negatif+1;
  35.                     nilaiKecil := nilaiKecil + dataArray[i];
  36.                 end
  37.             else
  38.                 begin
  39.                    positif := positif+1;
  40.                 end;
  41.             total := total+dataArray[i];
  42.         end;
  43.  
  44.         rata2 := total/n;  
  45.         (*
  46.         for i:= 1 to n do
  47.         begin
  48.             writeln('Indeks[',i,'] isinya : ',dataArray[i]);
  49.         end;
  50.         *)
  51.         writeln();
  52.         writeln('Data Nilai Terbesar: ',max);
  53.         writeln('Data Nilai Terkecil: ', nilaiKecil);
  54.         writeln('Jumlah Bilangan Negatif: ', negatif);
  55.         writeln('JUmlah Bilangan Positif: ', positif);
  56.         writeln('RATA-RATA -> ' ,total,' / ',n,' = ',rata2:4:2);
  57.         readln();
  58.        
  59.     end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement