Дан массив, состоящий из N целых чисел, заполненный датчиком случайных чисел. Найти произведение элементов массива, расположенных после первого отрицательного элемента.
Const n=20; var a:array [1..n] of integer; k,i:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(90)+10; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('В массиве ',k,' четных чисел'); writeln('Элементы с нечетными номерами:'); for i:=1 to n do if i mod 2 <> 0 then write(a[i],' '); end.
Const n=20; var a:array [1..n] of integer; k,i:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(90)+10; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('В массиве ',k,' четных чисел'); writeln('Элементы с нечетными номерами:'); for i:=1 to n do if i mod 2 <> 0 then write(a[i],' '); end.
Пишу на С#
int N=Convert.ToInt32(Console.ReadLine());
int[]mas=new int[N];
Random rnd=new Random();
for(int i=0; i<mas.Length; i++)
{
mas[i]=rnd.Next();
}
int proisv=1;
for(int i=0; i<mas.Length; i++)
{
if(mas[i]<0)
{
proisv*=mas[i];
}
}
Console.Writeline("Proisvedenie= "+proisv);
Объяснение: