program contoh810;
uses wincrt;
var nama,namamaks:string;
nilai,jumlahnilai,rata:real;
banyaksiswa:byte;
nilaimaks:real;
begin
clrscr;
{inisialisasi}
banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
namamaks:=' ';
write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
while nama <> 'x' do
begin
write('nilai ujian : ');readln(nilai);
banyaksiswa:=banyaksiswa+1;
jumlahnilai:=jumlahnilai+nilai;
{mencari nilai maksimum};
if nilai > nilaimaks
then begin
nilaimaks:=nilai;
namamaks:=nama;
end;
writeln;write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
end;
rata:=jumlahnilai/banyaksiswa;
writeln('nilai rata-rata : ', rata:6:2);
writeln('nilai maksimum : ',nilaimaks:6:2);
writeln('nama siswa juara 1 : ',namamaks);
end.
selamat mencoba
uses wincrt;
var nama,namamaks:string;
nilai,jumlahnilai,rata:real;
banyaksiswa:byte;
nilaimaks:real;
begin
clrscr;
{inisialisasi}
banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
namamaks:=' ';
write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
while nama <> 'x' do
begin
write('nilai ujian : ');readln(nilai);
banyaksiswa:=banyaksiswa+1;
jumlahnilai:=jumlahnilai+nilai;
{mencari nilai maksimum};
if nilai > nilaimaks
then begin
nilaimaks:=nilai;
namamaks:=nama;
end;
writeln;write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
end;
rata:=jumlahnilai/banyaksiswa;
writeln('nilai rata-rata : ', rata:6:2);
writeln('nilai maksimum : ',nilaimaks:6:2);
writeln('nama siswa juara 1 : ',namamaks);
end.
selamat mencoba