Ответ:

1.

var a:array[1..9] of integer;

i,s:Integer;

begin

write('Массив ');

for i:=1 to 9 do

begin

a[i]:= random (31);

write(a[i],'  ');

if a[i]>19 then s:=s+a[i]

end;

writeln;

writeln('Сумма элементов больших 19 равна ',s)

end.

2.

var a:array[1..11] of integer;

i,s:Integer;

begin

write('Массив ');

for i:=1 to 11 do

begin

a[i]:= random (5)+27;

write(a[i],'  ');

if a[i] mod 27 = 0 then s:=s+a[i]

end;

writeln;

writeln('Сумма элементов кратных 27 равна ',s)

end.