1)заполните массив случайными числами до n. 2)заполните массив нат. рядом чисел

1. 

var a: array [1..1000] of integer;
i, n : integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=random(n);
end.

2. 

var a: array [1..1000] of integer;
i, n : integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=i;
end.

3.

var a: array [1..1000] of integer;
i, n : integer;
begin
randomize;
readln(n);
for i:=1 to n do readln(a[i]);
end.

4. 

var a: array [1..1000] of integer;
i, j, s, n : integer;
begin
randomize;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i] div 2 = 0 then
begin
j:=j+1;
s:=s+a[i];
end;
writeln(s:j);
end.