Proggram Array1

Berikut codingannya:

Program array1;
uses crt;
var a:array[10..100] of integer;
rendah,tinggi:integer;
begin
     clrscr;
     rendah:=low(a);
     tinggi:=high(a);
     writeln('nilai array terendah=',rendah);
     writeln('nilai array tertinggi=',tinggi);
readln;
end.

Berikut hasilnya:

Selamat mencoba;)