Дан одномерный целочисленный массив, размерности n. Получить вывод только нечётных элементов массива. Массив можно задать случайным образом, вводом с клавиатуры или используя файл. Записать на ПАСКАЛЕ.

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var Массив := ArrRandom(n, -99, 99);

 Массив.Println;

 Массив.Where(Значение -> Значение.IsOdd).Println

end.

поиск одинаковых строк в матрице(c++)

#include <iostream>

#include <ctime>

#include <iomanip>

#include <vector>

using namespace std;

typedef vector< vector<int> > T;

ostream &operator<<(ostream &output,const T &mass)

{

    for(size_t i = 0;i<mass.size();++i){

       for(size_t j = 0;j<mass.size();++j)

              output<<setw(5)<<mass[j];

     output<<"\n\n";

   }

    return output;

}

int _tmain(int argc, _TCHAR* argv[])

{

   srand((unsigned)time(0));

   unsigned int row,col;

   do{

     cout<<"Enter rows > 0"<<endl;

     cin>>row;

   }while(row <= 0);

   do{

     cout<<"Enter col > 0"<<endl;

     cin>>col;

   }while(col <= 0);

   T mass(row, vector<int>(col));

   for(size_t i = 0;i < row;++i){

     for(size_t j = 0;j < col;++j)

                 mass[j] = rand()%10;

   }

   cout<<mass;

   return 0;

}

#include<iostream>

#include<ctime>

using namespace std;

int main() {

srand(time(NULL));

setlocale(LC_ALL, "Russian");

int d[15];

for (int i = 0; i < 15; i++)//заполение массива случайными числами в диопазоне от -70 до 30

{

 d[i] = rand() % 101 + (-70);

}

for (int i = 0; i < 15; i++)//вывод массива

{

 cout << d[i] << " ";

}

cout << endl;

for (int i = 0; i < 15; i++)//замена элементов массива

{

 d[i] = pow(d[i], 2);

}

for (int i = 0; i < 15; i++)//вывод массива

{

 cout << d[i] << " ";

}

cout << endl;

system("Pause");

return 0;

}

Объяснение: