Зробіть будь ласка, ів (я прикрипів зображення)​

//массив отсортировать, удалить повторные
#include <iostream>
#include <list>
#include <cstdlib>
 #include <ctime>
 #include <iomanip>
using namespace std;

  int main()  { 

    int j,n;
    list<int> lst;
    list<int>::iterator it1;
// начальная установка генератора случ. чисел
    srand(time(NULL));
//заполнение списка 
    cout<<"n = ";  cin>>n;
    for (j=0; j<n; j++)
      lst.push_back(rand() % 10);
//вывод на экран
      cout<<"initial array:  ";
      for (it1=lst.begin(); it1!=lst.end(); it1++)
      cout<<*it1<<" ";
//сортировка, удаление повторных
      lst.sort();
      lst.unique();
//вывод списка
      cout<<endl<<"after removing:  ";
      for (it1=lst.begin(); it1!=lst.end(); it1++)
      cout<<*it1<<" ";
      cout<<endl;

      system("pause");
      return 0;
  } 

В варианте без сортировки (что, вообще говоря, не принципиально) убираете строку  lst.sort();   

Sub Zadanie16084380()
    ' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
    ' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
    ' ство положительных элементов i-той строки.
    ' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
    ' Z должна быть заполнена нулями
    Const N = 4
    Dim Y,Z,K
    ReDim Y(N, N), Z(N, N), K(N)
    S=""

    Randomize
    For i = 0 To N
        K(i) = 0
        For j = 0 To N
            Y(i, j) = Int(100 * Rnd) - 50
            S = S & Y(i, j) & " "
            If Y(i, j) > 0 Then
                K(i) = K(i) + 1
            End If
        Next
        S = S & vbNewLine
    Next
    S = S & vbNewLine

    For i = 0 To N
        For j = 0 To N
            if K(i) = 0 then
            Z(i, j) = 0
            else
            Z(i, j) = Y(i, j) / K(i)
            end if
            S = S & Z(i, j) & " "
        Next
        S = S & vbNewLine
    Next
    MsgBox (s)
End Sub

Call Zadanie16084380()

код написан на VBScript