1.
const n=10; 
var a:array[1..n] of integer;
i,s,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
s:=0; k:=0;
for i:=1 to n do
 if a[i]<5 then begin s:=s+a[i]; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.

Пример:
Массив A:
  10   5   2  14   0  10   4  17   7  18
s = 6 k = 3

2.
const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 3 = 0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Массив A:
  10  12  10  17  16   7  15  10   7  17
k = 2

3.
const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>0
  then a[i]:=a[i]+5
  else if a[i]<0 then a[i]:=i;
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   6   1   6  -3   7   0   7  -3   1  -2
Измененный массив:
  11   6  11   4  12   0  12   8   6  10

4.
const n=10; 
var a:array[1..n] of integer;
i,s1,s2:integer; 
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
 if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.

Пример:
Исходный массив:
   4  20  12   9  19   6  20   3  15   1
s1 = 70 s2 = 39