Const n = 10; var a:array[1..n]of integer; min,imin,i,oldmin:integer; begin //Заполнение массива значениями в диапазоне //от -100 до 100 //и одновременно находим минимальный элемент элемент min:=100; for i:=1 to n do begin a[i]:=random(201)-100; if a[i]<= min then begin min:=a[i]; imin:=i;//Запомним index минимального end; write(a[i]:5); end; writeln;
//В цикле сдвигаем элементы массива //до индекса минимального включительно на //одну позицию вправо for i:=imin downto 2 do a[i]:=a[i-1]; a[1]:=min; //вывод элементов массива for i:=1 to n do write(a[i]:5); end.
229
Объяснение:
Код специальности:080200
Коды Вуза в Москве:001,003,004
В Вузе 003 нету менеджмента а в 004 количество мест 102 а в 001 количество мест 127.102+127=229