program Statistik_usia;
Uses wincrt;
var
N, usia, usia15, usia16, usia17, usia18, lainnya: integer;
i:integer;
Begin
read(N);
usia15:=0;
usia16:=0;
usia17:=0;
usia18:=0;
i:=1;
while i<= N do
begin
write('masukan umur anda:');
read(usia);
case (Usia) of
15:usia15:=usia15+1;
16:usia16:=usia16+1;
17:usia17:=usia17+1;
18:usia18:=usia18+1;
else lainnya:=lainnya+1;
end;
1:=i+1;
end;
{i>N}
write(usia15,usia16,usia17,usia18,lainnya);
end.
Tidak ada komentar:
Posting Komentar