per me una lemon-soda:
codice:
program array_1;
uses crt;
const n=100;
type vettore=array[1..n] of integer;
var i,elementi:integer;
    a:vettore;

begin
clrscr;
repeat
write('Di quanti elementi deve essere formato l''array? ');
readln(elementi);
until (elementi<=n) and (elementi>=0);
writeln;
for i:=1 to elementi do
                     begin
                     write('Elemento ',i,'= ');
                     readln(a[i]);
                     end;
writeln;
for i:=1 to elementi do
                     begin
                     a[i]:=a[i] div 2;
                     writeln(a[i]);
                     end;
readln;
end.