Решить в паскале (тема "массивы") задать случайным образом 13 элементов числового массива - числа от 10 до 50. удалить из него: а) 10-ый элемент; б) минимальный элемент решить это всё в одной . жду быстрого решения)

Var a: array[1..2000001] of integer; i,y,x,j,c: integer; begin x: =200001; a[x]: =700; for i: =1 to 13 do begin y: =random(2000001); a[y]: =random(41)+10; if a[x]> a[y] then x: =y; if i=10 thenfor j: =i to 2000000-i-1 do a[j]: =a[j+1]; end; for c: =1 to 1999999 do write(a[c],' '); end.

1. списки - особый вид форматирования абзацев.    2. существует три типа списков: маркированный, нумерованный номер и многоуровневый.    3. существует несколько способов оформления некоторого фрагмента текста в виде маркированного или нумерованного списка.  i способ. основной.  перед созданием списка курсор следует разместить в нужном месте документа и выполнить  главная  -->   абзац  -->   маркеры  или  нумерация. в текущем месте документа появится маркер или номер того вида списка, который использовался последним.  после этого можно вводить первый элемент списка. после его ввода следует нажать клавишу  enter  - следующий номер или маркер появляются в следующей строке документа автоматически. когда последний элемент списка введен, нужно повторно выбрать кнопку соответствующего списка на  ленте, или дважды нажать  enter, или удалить номер (маркер) клавишей  backspace.    ii способ. автоматическое создание списка.  разместив курсор в нужном месте документа, следует ввести некие специальные условные символы, которые определяют вид желаемого списка, и нажать клавишу  пробел. сразу же условные символы превратятся в соответствующий маркер или номер, после чего можно вводить первый элемент списка.  iii способ. превращение текста в список.  если некоторые абзацы текста, введенного ранее, нужно оформить как список, то следует выделить эти абзацы и выбрать на  ленте  кнопку соответствующего типа списка:   маркеры,  нумерация.  3. для создания многоуровневого списка на  ленте  следует выбрать кнопку  многоуровневый список  и вариант оформления списка в  библиотеке списков. дальше нужно вводить элементы списка, изменяя при необходимости их уровни вложения.  4. колонки - прием форматирования текста, применяемое для лучшей читабельности объемного текста.  5. для вставки в текстовый документ графического изображения из файла, который сохранен на внешнем носителе, следует выполнить  вставка  -  иллюстрации  -  рисунок. после этого в диалоговом окне  вставка рисунка  выбрать нужный файл. для вставки в текстовый документ графического изображения из коллекций нужно выполнить  вставка  -  иллюстрации  -  клип. эти действия открывают область клип, которая предоставляет возможность осуществлять поиск нужных изображений и просматривать эскизы найденных.    6. обтекание рисунка текстом - функция, которая используется для компактного размещения материала и связывания между собой рисунка и текста. можно задать такие виды обтекания: обтекание текстом, вокруг рамки, по контуру, сквозное, сверху и снизу. 

Впредыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h: integer; begin write('введите пятизначное число'); read(x); a: = x mod 10; b: = x mod 100; b: = b div 10; c: = x mod 1000; c: = c div 100; d: = x mod 10000; d: = d div 1000; e: = x mod 100000; e: = e div 10000; if a mod 2=0 then h: =a else g: =a; if b mod 2=0 then h: =h+b else g: =g+b; if c mod 2=0 then h: =h+c else g: =g+c; if d mod 2=0 then h: =h+d else g: =g+d; if e mod 2=0 then h: =h+e else g: =g+e; writeln(' сумма нечётных цифр равна ', g); write(' сумма чётных цифр равна ', h); end.