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.
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);
}
}
}
=50*3+(c3-50)*5
Объяснение: