May 10
Script untuk mencari data terbesar dan terkecil.
Uses Wincrt;
var
i,n,max,min,bil:longint;
begin
Writeln(‘Mencari data terbesar&terkecil’);
Write(‘Banyaknya data=’);Readln(n);
Write(‘Masukan bilangan ke-1=’);Readln(bil);
max:=bil;
min:=bil;
for i:=2 to n do
Begin
Write(‘Masukan bilangan ke’,i,’=');readln(bil);
if(bil >max)then max:=bil;
if(bil
end;
clrscr;
Writeln;Writeln;
Writeln(‘Banyaknya data adalah=’,n);
Writeln(‘Bilangan terbesar adalah=’,max);
Writeln(‘Bilangan terkecil adalah=’,min);
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
