Cameh Site

uses wincrt;
type larik = array [1..10] of integer;
var data   : larik;
    n,i,max: integer;
begin
     write('banyak data =....');
     readln(n);
     for i:=1 to n do
     begin
          write('data ke ',i,' = ');
          readln(data[i]);
     end;
     max:=data[1];
   
     for i:=2 to n do
         if data[i]>max then
            max:=data[i];
     write('data =');
     for i:=1 to n do
     begin
          write(data[i],' ');
     end;
     writeln(' ');
     writeln('bilangan terbesar =',max);
     readln;
end.

Hari	Jam	Ruang	Mata Kuliah
Senin	08.50-10.30	C.3.2	Pengantar Teknologi Informasi
Senin	14.10-15.50	C.3.1	Algoritma & Pemrograman II
Selasa	08.50-10.30	B.0.3	Bahasa Inggris II
Rabu	08.50-11.20	C.3.1	Statistika Teknik
Rabu	13.20-15.00	B.0.3	Mikroprosesor
Kamis	12.30-15.00	C.3.2	Kalkulus II
Jum'at	09.40-11.20	C.3.1	Pendidikan Kewarganegaraan
Jum'at	12.30-14.10	B.0.3	Pemrograman Dasar
Jum'at	15.50-17.30	B.2.3	Pengembangan Kepribadian