определить значение z после выполнения фрагмента программы x=4 y=2 z=-3×x+4×y if z>0 then z=z-40 else z=sqr(z)

program actors;

var

 i: integer;

 mas: array [1..10] of integer;

begin

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 9) and (mas[i] <= 11) then

     writeln('Элемент: ', i, ' Значение: ', mas[i]);

 end;

end.

Объяснение:

program actors;  // Название программы

var

 i: integer;  // Целочисленная переменная счетчик для массива

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 for i := 1 to 10 do   // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]);  // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do  // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 9) and (mas[i] <= 11) then  // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда

     writeln('Элемент: ', i, ' Значение: ', mas[i]);  // Выводим индекс и значение элемента

 end;  // Конец цикла

end. // Конец программы