[Pascal] Scipt Menghitung Jumlah, Rata-Rata, Data Max & Min dengan Array

uses wincrt;

var data : array [1..100] of integer;

    i, n, jum, max, min : integer;

    rata : real;

begin           

write('Banyak Data: ');

readln(n);

for i := 1 to n do

    begin

    write('Data ',i,' : ');

    read(data[i]);

    jum := jum + data[i];

    end;

                          

    rata := jum/n;

    max := data[1];

    min := data[1];

for i := 2 to n do

    begin

    if data[i] > max then max := data[i];

    if data[i] < min then min := data[i];

    end;

    writeln('---------------------');

                   

for i := 1 to n do

    write(data[i],' ');

    writeln('  ');

    writeln('---------------------');

    writeln('Jumlah        : ',jum);

    writeln('Rata-Rata     : ',rata:0:2);

    writeln('Data Terbesar : ',max);

    writeln('Data Terkecil : ',min);

end.

Posted in: Array,Pascal,Pemrograman,Script

Posted in: programming