щелкните на рабочем столе правой кнопкой мыши. Появится всплывающее меню. Выберите пункт Создать. Появится новое меню. Выберите пункт Ярлык. Появится диалоговое окно создания ярлыка,щелкните на кнопке ОБЗОР. В появившемся окошке разыщите программу Калькулятор. Дважды щелкните на значке Калькулятор, расположенном слева от имени программы. Щелкните на кнопке ДАЛЕЕ. Наберите слово Калькулятор в поле «имя». Щелкните на кнопке ГОТОВО. в окне программы Проводник установите указатель на нужном файле и перетащите его на рабочий стол, нажав правую кнопку мыши. В появившемся меню выберите пункт Создать ярлыки.
Const n=10;var a:array[1..n]of integer; i,max1,max2,im1,im2:integer; begin for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; max1:=a[1];im1:=1; for i:=1 to n do if a[i]>max1 then begin max1:=a[i]; im1:=i; end; for i:=1 to n do if (a[i]<=max1)and(i<>im1)and(a[i]>max2)then begin max2:=a[i]; im2:=i; end; writeln; writeln('i: ',im1,' max1: ', max1,' i: ',im2,' max2: ',max2); end.
в окне программы Проводник установите указатель на нужном файле и перетащите его на рабочий стол, нажав правую кнопку мыши. В появившемся меню выберите пункт Создать ярлыки.