fork download
copy 
  1. program aray;
  2. var nilai : array[0..9] of integer;
  3.     max,min,a : integer;
  4. begin
  5.   nilai[0]:=10;
  6.   nilai[1]:=20;
  7.   nilai[2]:=30;
  8.   nilai[3]:=40;
  9.   nilai[4]:=50;
  10.   nilai[5]:=60;
  11.   nilai[6]:=70;
  12.   nilai[7]:=80;
  13.   nilai[8]:=90;
  14.   nilai[9]:=100;
  15.  
  16.   writeln('nilai 0 : ',nilai[0]);
  17.   writeln('nilai 1 : ',nilai[1]);
  18.   writeln('nilai 2 : ',nilai[2]);
  19.   writeln('nilai 3 : ',nilai[3]);
  20.   writeln('nilai 4 : ',nilai[4]);
  21.   writeln('nilai 5 : ',nilai[5]);
  22.   writeln('nilai 6 : ',nilai[6]);
  23.   writeln('nilai 7 : ',nilai[7]);
  24.   writeln('nilai 8 : ',nilai[8]);
  25.   writeln('nilai 9 : ',nilai[9]);
  26.  
  27.  
  28.   max:= nilai [a];
  29.   min:= nilai [a];
  30.   for a:= 0 to 9 do
  31.   begin
  32.   if max < nilai[a] then
  33.   max := nilai[a];
  34.  
  35.   if min > nilai[a] then
  36.   min := nilai[a];
  37.   end;
  38.  
  39.   writeln('nilai max : ',max);
  40.   writeln('nilai min : ',min);
  41.   readln;
  42. end.
  43.  
Success #stdin #stdout 0s 4524KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
nilai 0 : 10
nilai 1 : 20
nilai 2 : 30
nilai 3 : 40
nilai 4 : 50
nilai 5 : 60
nilai 6 : 70
nilai 7 : 80
nilai 8 : 90
nilai 9 : 100
nilai max : 100
nilai min : 10
https://ideone.com/HW6hCx
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!