Program Pascal : Nilai Maksimum Nilai Minimum dan Rata-rata

aplikasi : TURBO PASCAL FOR WINDOWS 1.5

ini lansung saja aja kita ke sourcedo nya. berikut source code dan tampilannya ;

source code :



uses ;
type larik = array [1..100] of integer;
var
i,j,n,max,min,jml:integer;
rata:real;
data:larik;

begin
write(‘masukan jumlah data yang akan di input : ‘); readln(n);
jml:=0;
rata:=0;

for i:=1 to n do
begin
write(‘masukan nilai data ke ‘,j,’  :  ‘);readln(data[i]);
jml:=jml+data[i];
end;

max:=data[i];
min:=data[j];

for j:=1 to n do
begin
if data[j] > max then max:=data[i] else if data [j] < min then
min:=data[i];
end;

writeln(‘nilai terbesar :’,max);
writeln(‘nilai terkecil :’,min);

rata:=jml/n;

writeln(‘rata-rata :’, rata:0:2);

end.

tampilan :

NB : ntuk logika / algoritmanya pahami sendiri aje.. ada yang salah kalo program ini jadi silahkan dibenerin..