1) находит индексы чётных элементов

2) подсчитывает количество отрицательных элементов

Ответы:

#include &lt,iostream&gt,

#include &lt,cstdlib&gt,

#include &lt,ctime&gt,

using namespace std,

int main()

{

int chet=0,

mas[16],

int i,

srand(time(NULL)),

for(i=0, i&lt,16, i++)

mas[i]=rand()%41+(-20),

for(i=0, i&lt,16, i++)

{

if(mas[i]%2==0)

{

cout &lt,&lt, i+1 &lt,&lt, ,

}

if(mas[i]&lt,0)

chet++,

}

cout &lt,&lt, n &lt,&lt, chet &lt,&lt, n’,

system(pause&gt,&gt,null),

return 0,

}



program r1, var A:array [1..16] of integer i:integerBegin for i:=1 to 16 do A[i]:random(41)-20, for i:= 1 to 16 do  if A[i] mod 2 = 0 then    writeln( i, ),end.