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

1. 

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

2. 

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

3.

var a: array [1..1000] of integer; i, n : integer;beginrandomize;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;beginrandomize;readln(n);for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 2 = 0 thenbeginj:=j+1;s:=s+a[i];end;writeln(s:j);end.