Question

!!!Ребятушки,помогите пожалуйста,очень нужен ваш ответ!!! Буду безмерно благодарна)))​

Answer 1

Номер 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.