Выберите верные утверждения из списка: 1.Ярлыки нельзя создавать для текстовых документов
2.Ярлык можно создать для любого объекта - диска, папки, программы, документа
3.Для каждого объекта можно сделать сколько угодно ярлыков
4.Если удалить ярлык, то объект, на который он ссылается, также удалится

8

Объяснение:

var i:integer;

begin

   for i:=1 to 8 do writeln(i);

end.

Вывод:

1                                                                                                                                                                                          

2                                                                                                                                                                                          

3                                                                                                                                                                                          

4                                                                                                                                                                                          

5                                                                                                                                                                                          

6                                                                                                                                                                                          

7                                                                                                                                                                                          

8                                                                                                                                                                                          

//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20.
 //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, 
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки

var i,x,y  : shortint;
    s      : real;
    t      : array [1..30] of shortint;
begin
  randomize;
  For i:=1 to 30 do
    begin
     t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
     writeln (i,'  ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив  
   end;
 for i:=1 to 30 do
   begin
     if t[i]<0 then
        begin
         x:=x+t[i];
         y:=y+1;
       end;
   end;
   s:=x/y;
   writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.