Aray

Pemrograman cetak data array dari 1 sampai 5 dengan menggunakan bahasa pascal.

program aray;
uses wincrt;
var
data :array[1..100] of integer;
i,jum:integer;
begin
for i:=1 to 5 do
begin
write('data',i,'= ');
readln(data[i]);
end;
writeln;
for i:=1 to 5 do
begin
write(data[i]);
end;
end.