1. Написать программу, которая формирует случайным образом массив из N целых чисел, лежащих в диапазоне от 1 до 5, после чего на экран выводится сам массив и номера элементов, совпадающих с первым элементом. Протестировать программу на трёх различных тестах. 2. Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. 3. Написать программу, которая вводит массив из N вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число Z, этим числом. Вывести на экран полученный массив и количе-ство замен. Мы не изучали константы, поэтому можно обойтись без них?

1)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

#include <set>

using namespace std;

signed main() {

   srand(time(NULL));

   int n;

   cin >> n;

   int a[n];

   for(int i = 0; i < n; i++)

       a[i] = rand() % 5 + 1;

  vector<int> ans;

   for(int i = 0; i < n; i++)

   {

       cout << a[i] << " ";

       if(a[i] == a[0])

           ans.push_back(i);

   }

   cout << "\n";

   for(auto i: ans)

       cout << i << " ";

}

2)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

#include <set>

using namespace std;

signed main() {

   int n,k;

   cin >> n >> k;

   int a[n];

   vector<int> ans;

   for(int i = 0; i < n; i++)

   {

       cin >> a[i];

       if(a[i] % k == 0)

           ans.push_back(a[i]);

   }

   for(auto i: ans)

       cout << i << " ";

}

3)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

#include <set>

using namespace std;

signed main() {

   int n,z;

   cin >> n >> z;

   int a[n];

   for(int i = 0; i < n; i++)

   {

       cin >> a[i];

       a[i] = min(a[i],z);

   }

   for(auto i: a)

       cout << i << " ";

}

Program pr3;
Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы}
B : array [1..100, 1..100] of integer ;
C : array [1..100, 1..100] of integer ;
m, n, i,j: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
writeln ('Введите размерность матриц m и n (числа <100)');
readln (m, n);
For i:=1 to m do
For j:=1 to n do
begin
A[i,j]:=random (20)-10; {ввод элемента матрицы}
B[i,j]:=random (20)-10; {ввод элемента матрицы}
end;
writeln ('Итоговая матрица A: ');
For i:=1 to m do
begin
For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
writeln ('Итоговая матрица B: ');
For i:=1 to m do
begin
For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
For i:=1 to m do {цикл по всем строкам матрицы}
For j:=1 to n do {цикл по всем столбцам матрицы}
if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j];
writeln ('Итоговая матрица C: ');
For i:=1 to m do
begin
For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
end.

 --- gfortran 6.3 ---
program prog1
integer N, k, i, j
real a(10,10)
read *, N
print *, 'Матрица:'
do i = 1,N
 do j = 1,N
   a(i,j) = sin(1.0*i+1.0*j/2)
 end do
end do
do i = 1, N
 print *, (a(i,j), j=1,N)
end do
k = 0
do i = 1, N
 do j = 1, N
  if(a(i, j) > 0) k = k+1
 end do
end do 
print *, k
end

Результат:
4
Матрица:
   0.997494996 0.909297407 0.598472118 0.141120002
   0.598472118 0.141120002 -0.350783229 -0.756802499
  -0.350783229 -0.756802499 -0.977530122 -0.958924294
  -0.977530122 -0.958924294 -0.705540299 -0.279415488
      6