1. Запишите выполнение приведенного фрагмента для табличной ве- личины, значениями элементов которой являются числа: 2; -2; 3; 0,25; -4.
dob := 1;
for i:=1 to 5 do dob := dob * a[i];​

ответ = 12

Объяснение:

const

 a: array[1..5] of double = (2, -2, 3, 0.25, -4);

var

 dob : Double;

 i : integer;

begin

 dob := 1;

 for i:=1 to 5 do

   dob := dob * a[i];

 writeln(dob);

end;