Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program aray1;
- type typeArray = Array of longint;
- var
- n, i, j, max, negatif, positif, total, nilaiKecil: integer;
- rata2: real;
- dataArray : typeArray;
- begin
- max := 0;
- negatif := 0;
- positif := 0;
- total := 0;
- rata2 := 0;
- nilaiKecil := 0;
- write('Masukan jumlah data input: ');
- readln(n);
- setlength(dataArray,n);
- for i:= 1 to n do
- begin
- write('Indeks[',i,'] : ');
- readln(j);
- dataArray[i]:=j;
- end;
- for i:= 1 to n do
- begin
- if (dataArray[i] > max) then
- begin
- max := dataArray[i];
- end;
- if (dataArray[i] < nilaiKecil) then
- begin
- negatif := negatif+1;
- nilaiKecil := nilaiKecil + dataArray[i];
- end
- else
- begin
- positif := positif+1;
- end;
- total := total+dataArray[i];
- end;
- rata2 := total/n;
- (*
- for i:= 1 to n do
- begin
- writeln('Indeks[',i,'] isinya : ',dataArray[i]);
- end;
- *)
- writeln();
- writeln('Data Nilai Terbesar: ',max);
- writeln('Data Nilai Terkecil: ', nilaiKecil);
- writeln('Jumlah Bilangan Negatif: ', negatif);
- writeln('JUmlah Bilangan Positif: ', positif);
- writeln('RATA-RATA -> ' ,total,' / ',n,' = ',rata2:4:2);
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement