3. Дано два массива разной длины. Найти все степени 4, которые одновременно встречаются в первом и во втором массиве. Найденные числа записать в новый массив без повторов. 4. В массиве из n целых чисел найти числа, в записи которых нет 0. Записать их без повторов в новый массив.
5. Дано два массива разной длины. Найти чётные числа первого массива, которых нет во втором, Записать их без повторов в новый массив. В новом массиве найти максимальный элемент, в записи которого есть нечётные цифры.

написать все эти программы на паскале
очень

#include <iostream>

int main(void){

   const int N = 3;

   const int M = 5;

   int mat[N][M];

   int i, j, row = 0, col = 0, n = 1;

   while(row <= (N - 1)){

       i = row;

       j = col;

       while((i < N) && (j >= 0))

           mat[i++][j--] = n++;    

       if(col < (M - 1))

           ++col;

       else

           ++row;

   }

   for(i = 0; i < N; ++i){

       for(j = 0; j < M; ++j){

           std::cout.width(3);

           std::cout << mat[i][j];

       }

       std::cout << std::endl;

   }

   return 0;

}

Объяснение:

#include <iostream>

#define N 2

int main()

{

int i,j;

int A[N], B[N], C[N];

setlocale(LC_ALL, "Russian");

for (i = 0; i < N; i++)

{

 std::cout << "Введите a" << i << ": ";

 std::cin >> A[i];

 std::cout << "Введите b" << i << ": ";

 std::cin >> B[i];

 std::cout << "Введите c" << i << ": ";

 std::cin >> C[i];

}

for (i=0;i<N;i++)

 for (j = i+1; j < N; j++)

 {

  if ((A[i]==A[j])&&(B[i] == B[j])&&(C[i] == C[j]))

   std::cout << "Прямые " << i << "и " << j << " совпадают" << std::endl;

  else if (-A[i] / B[i] == -A[j] / B[j])

   std::cout << "Прямые " << i << " и " << j << " параллельны" << std::endl;

 }

return 0;

}