Номер 1.
program n_1;
var arr: array of integer; i, a, b, n: integer;
begin
writeln('Введите длину массива, диапазон индексов массива для поиска четных чисел');
read(n, a, b);
SetLength(arr, n);
writeln('Введите элементы массива');
for i:=1 to n do read(arr[i]);
for i:=a to b do if arr[i] mod 2 = 0 then write(arr[i], ' ');
end.
Номер 2.
program n_1;
var arr: array of integer; i, n, m, s, x: integer; a:boolean;
begin
a:=false;
writeln('Введите длину массива и число, произведение чисел больше требуется найти');
read(n, m);
SetLength(arr, n);
writeln('Введите элементы массива');
for i:=1 to n do read(arr[i]);
for i:=1 to n do if arr[i]>m then begin a:=true; s:=arr[i]; x:=i; break; end;
if a=true then begin
for i:=x+1 to n do if arr[i]>m then s:=s*arr[i];
writeln(s);
end
else writeln('Таких чисел в массиве нет');
end.