sourse code program nilai mahasiswa
uses wincrt;
var mahasiswa : array [1..30] of integer;
a : integer;
nama : string;
nilai, tinggi : real;
begin
write ('masukkan banyak mahasiswa : '); readln (mahasiswa[a]);
for a := 1 to mahasiswa[a] do
begin
writeln;
writeln ('mahasiswa ke ',a);
write ('nama : '); readln(nama);
write ('nilai : '); readln (nilai);
if a = 1 then
begin
tinggi := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
end;
end;
writeln;
writeln ('nilai tertinggi adalah ',tinggi:3:2);
end.
