Source Tugas Praktikum Bab 4

Program Min_Max_Rata;
Uses Crt;
Var
Byk,Jml,i,min,max : Integer;
Nilai : Array [1..10] Of Integer;
rata : Real;
begin
Clrscr;
min := 9999;
max := -9999;
Write ('Banyaknya data [1..10] : '); Readln(Byk);
For i:=1 To Byk do
Begin
Write ('Data Ke-',i, ': '); Readln (Nilai[i]);
If Nilai[i] > Max Then Max := Nilai[i];
If Nilai[i] < Min Then Min := Nilai[i];
Jml := Jml + Nilai[i];
End;
Rata := Jml/Byk;
Writeln ('Nilai Max : ',max);
Writeln ('Nilai Min : ',min);
Writeln ('Nilai Rata: ',rata:5:0);
Readln;
End.




program tugas_praktikum_42;
uses crt;
var
n,i,j,k:integer;
a:array [1..50] of integer;
b:string;
begin
clrscr;
write('Masukkan banyak angka : ');readln(n);
for i:=1 to n do
begin
write(' Angka ke-',i,'= ');readln(a[i]);
end;
writeln;
writeln('.:: Hasilnya ::.');
for j:=1 to n do
begin
write(a[j],' = ');
b:='* ';
for k:=1 to a[j] do
begin
write(b);
end;
writeln;
end;
readln;
end.