Все за одного и одни за всех
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Массив A:'); a.Println;
var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
writeln('Массив B:'); b.Println;
end.
Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double m[10][10];
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++) {
cout << "Введите значение массива" << "[" << i << "]" << "[" << j << "]" << endl;
cin >> m[i][j];
if (j % 2 == 0) m[i][j] = pow(m[i][j],3);
}
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++)
cout << "m[" << i << "]" << "[" << j << "]=" << m[i][j] << endl;
return 0;
}