рівень води x що години підіймається на p відсотка який буде рівень води через N годин ? через скільки годин рівень води буде не меньше ніж k метрів ?​

1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then 
 if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

static void Main(string[] args)

   {

       Random rnd = new Random();

       int[] arr = new int[9];

       //Заполняем

       for (int i = 0; i < 9 i++)

       {

           arr[i] = rnd.Next(-10, 12);

       }

     

       int result = 1; ;

       //Перебираем

       for (int i = 0; i < 9; i++)

       {

           //Если кратен трем и не равен нулю

           if (arr[i] % 3 == 0 && arr[i] != 0)

           {

               Console.ForegroundColor = ConsoleColor.Red;

               result *= arr[i]; //Перемножаем

     

           }

           Console.Write(arr[i] + " ");

           Console.ForegroundColor = ConsoleColor.Gray;

       }

       Console.WriteLine($"{Environment.NewLine}Результат умножения: {result}");

       Console.ReadKey();

   }

Объяснение: