Люди с информатикой(заранее спс) ​

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();

   }

Объяснение:

{Напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
var f:text;
  min, max,a :integer;
  find:boolean;{есть/нет числа удовлетворяющие условию}
begin
 assign(f,'dan.txt'); reset(f);
 min:=0; max:=0;
 find:=false;
 while not eof(f) do
 begin
  read(f,a);
  if not find and (a>0) and (a mod 2=0) then
  begin
   min:=a; find:=true;
  end
  else
  if find and (a>0) and (a mod 2=0) and (min>a) then
   min:=a;

  if (a>0) and (a mod 2=0) and (max<a) then
   max:=a;
 end;
 close(f);
 assign(f,'res.txt');
 rewrite(f);
 if max=0 then writeln(f,'чётных положительных чисел нет')
  else
   writeln(f,'min среди чётных положительных чисел =',min, chr(13),
      'max среди чётных положительных чисел нет',max);
  close(f);
end.