Program Mencari Nilai Terbesar (Pascal)

Program Untuk Mencari Nilai Terbesar

Menggunakan Array

program nilai_terbesar;
uses wincrt;
const besar = 10;
var
n : array[1..besar]of integer;
i  : integer;
max: integer;

begin
writeln('Mencari Nilai Terbesar');
writeln('----------------------');
      for i:=1 to besar do
begin
     write('Masukkan data ke-',i,'= ');readln(n[i]);
     if (n[i])  > max then max:=(n[i]);
end;
writeln;
write('nilai terbesar : ',max);
end.

  Untuk Outputnya seperti ini :