Используя таблицу символов, записать последовательность десятичных числовых кодов в кодировке Windows для своих ФИО и даты рождения. Таблица символов (см. рис. 2) отображается в редакторе MS Word с команды: Вставка→Символ→Другие символы. Мельник Егор Игоревич
2001.03.19

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End

//C# first problem
using System;
class Programm
{
  static void Main()
  {
     int n=int.Parse(Console.ReadLine());
     int[] a=new int [n];
     for (int i=0;i<n;i++)
     {
        a[i]=i;
        Console.Write(a[i] + " ");
     }
  }
}

//C# second problem
using System;
class Programm
{
  static void Main()
  {
     int n=int.Parse(Console.ReadLine());
     int[] a=new int [n];
     int ma=0,mi=0,ma_p=0,mi_p=0;
     for (int i=0;i<n;i++)
     {
        a[i]=int.Parse(Console.ReadLine);
     }
     ma=a[0];mi=a[0];ma_p=0;mi_p=0;
     for (int i=0;i<n;i++)
     {
        if (ma<a[i]){ma=a[i];ma_p=i;}
        if (mi>a[i]){mi=a[i];mi_p=i;}
     }
     ma=a[ma_p];
     a[ma_p]=a[mi_p];
     a[mi_p]=ma;
     for (int i=0;i<n;i++){Console.Write(a[i] + " ");}
  }
}