void Func(const unsigned int N) {
std::vector<int> A(N);
unsigned int Neg = 0, Pos = 0;
for (unsigned int i = 0; i < A.size(); i++) {
A[i] = rand() % 10 - rand() % 20;
std::cout << A[i] << " ";
if (A[i] >= 0) {
Pos++;
}
else {
Neg++;
}
}
std::cout << std::endl;
std::cout <<( Pos > Neg ? "Больше чисел положительных" : "Больше чисел отрицательных либо их количества равны") << std::endl;
}
Объяснение:
Для этого еще подключи <vector>, и, очевидно, <iostream>
Var a:array[1..n] of integer;
i,indx,k,tr,indxx:integer;
Begin
Randomize;
For i:=1 to n do begin
A[i]:=Random(40)-20;
Write(a[i],' ');
end;
Writeln;
write('0 имеет номер: ');
For i:=1 to n do
Begin
If A[i]=0 thenwrite(i);
end;
Writeln;
indx:=0;
For i:=1 to n do
Begin
If a[i] mod 2=0 then
begin
indx += 1;
a[indx]:=a[i];
end;
end;
Write('Индекс четных элементов: ');
For i:=1 to indx do
write(a[i],' ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
inc(k);
end;
end;
Writeln;
Writeln('Кoличество отрицательных элементов: ',k);
For i:=1 to n do
Begin
If A[i] mod 3=0 then
tr:=a[i];
end;
Writeln('Кратное трем ',tr);
indxx:=0;
writeln('Индексы кратны 3: ');
For i:=1 to n do
Begin
If a[i] mod 3=0 then
begin
indxx += 1;
a[indxx]:=a[i];
write(' ',a[i]);
end;
end;
end.