РЕБЯТА У МЕНЯ А/З, ДАЛИ САМОСТОЯТЕЛЬНУЮ, НО Я ВООБЩЕ НИЧЕГО НЕ ПОНЯЛА ВЫ ПОСЛЕДНЯЯ НАДЕЖДА там ещё">

using System;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int[] A = new int[10];

           int s1 = 0, s2 = 1 , s3 = 0;

           Random r = new Random();

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

           {

               A[i] = r.Next(101) - 50;

               if (A[i] < 0) s1 += A[i];

               else if (A[i] == 0) s3++;

               else s2 *= A[i];

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

           }

           Console.WriteLine("\nСумма отрицательных элементов: {0}",s1);

           Console.WriteLine("Произведение положительных элементов: {0}", s2);

           Console.WriteLine("Количество нулевых элементов: {0}", s3);

       }

   }

}

const N = 20;

const MAX = 70;

const MIN = 20;

var A: array [1..N] of integer;

var i,c1,c2: integer;

begin

randomize();

c1:=-1;

c2:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 if (A[i] mod 2 = 0) then  

   if (c1=-1) or (A[i]<A[c1]) then c1:=i;

 if (A[i] mod 2 <> 0) then  

   if (c2=-1) or (A[i]<A[c2]) then c2:=i;

 end;

writeln();

if (c1<>-1) then writeln('Минимальное четное: ',A[c1]);

if (c2<>-1) then writeln('Минимальное нечетное: ',A[c2]);

end.