С# 1. создайте одномерный массив с 31 элементов, которые заполните случайными целыми числами от 11 до 100-11. выведите значения элементов массива в строку, разделив их пробелами, 11 нечетное число. отсортируйте массив по возрастанию и выведите его значение с новой строки разделены пробелами. еще раз отсортируйте массив по убыванию, выведите его значение с новоq строки разделены пробелами. 2. создайте одномерный массив текстовых строк состоящий из 4 элементов. значение первого элемента - имя, второго - фамилия, третьего - отчество, четвертого - «вариант - 11». выведите на экран вашу фамилию, имя, отчество и номер варианта, используя ссылки на элементы созданного вами массива. выведите на экран с новой строки то же, что и в предыдущей строке, но разместив слова в обратном порядке. подсказка: array.reverse (имя вашего массива)

Using system;                               public class program {       public static void main()       {             // task 1             int[] arr1 = new int[31];             random rand = new random();             for(int i = 0; i < arr1.length; i++)                   arr1[i] = rand.next(11,100-11);                         for(int i = arr1.length-1; i > =0;                   console.write(arr1[i] + " ");                         array.sort(arr1);                         console.writeline();             for(int i = 0; i < arr1.length; i++)                   console.write(arr1[i] + " ");                         console.writeline();             for(int i = arr1.length-1; i > =0;                   console.write(arr1[i] + " ");                         // task 2             string[] arr2 = {"иван", "иваненко", "иванович", "вариант - 11"};                         console.writeline();             for(int i = 0; i < arr2.length; i++)                   console.write(arr2[i] + " ");                         array.reverse(arr2);                         console.writeline();             for(int i = 0; i < arr2.length; i++)                   console.write(arr2[i] + " ");       } }

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! procedure fillstack(st: stack< integer> ; sq: sequence of integer); begin   foreach var t in sq do st.push(t); end; procedure printstack(st: stack< integer> ; s: string); begin   write(s); st.println end; procedure tostack(sta,stb: stack< integer> ; even: boolean); begin   if even then       while sta.count> 0 do begin           var v: =sta.pop;           if v.iseven then begin               stb.push(v);               exit               end           end   else       while sta.count> 0 do begin           var v: =sta.pop;           if v.isodd then begin               stb.push(v);               exit               end           end end; begin   var st1: =new stack< integer> ;   fillstack(st1,seq(2,13,20,18,1));   printstack(st1,'стек1: ');   var st2: =new stack< integer> ;   fillstack(st2,seq(9,11,10,8,4));   printstack(st2,'стек2: ');   var st3: =new stack< integer> ;   while st1.count+st2.count> 0 do begin       tostack(st1,st3,true);       tostack(st2,st3,false);       end;   printstack(st3,'стек3: ')   end. результат стек1: 1 18 20 13 2 стек2: 4 8 10 11 9 стек3: 2 9 20 11 18