program nilaiTerbesar;
var i,n,besar : integer;
angka : array[1..100] of integer;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//algoritma nilai terbesar
besar := angka[1];
for i:=2 to n do
begin
if (besar<angka[i]) then
besar := angka[i];
end;
//menampilkan nilai terbesar
writeln('Nilai terbesar adalah ', besar);
end.
Menentukan Apakah semua negatif atau tidak
-----------------------------------------------------------
program semuaNegatif;
var i,n : integer;
angka : array[1..100] of integer;
jawab : string;
begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);
//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;
//algoritma penjumlahan array
jawab := 'Semua Negatif'; i:=1;
while i<=n do
begin
if angka[i]>0 then
begin
jawab := 'Tidak Semua Negatif';
end;
i:= i +1;
end;
//menampilkan jumlah yang diperoleh
writeln(jawab);
readln;
end.