. Составить программу, которая вычисляет сумму, произведение и количество положительных элементов одномерного массива

var   i, n, x, z : integer;       // объявляем переменные целочисленного типа.   y: real;                      // объявляем переменную вещественного типа.   arr : array of integer; // объявляем массив.Begin   writeln(\'Введите размерность массива:\');   // вывод строки на экран.  read(n);                                                   // считываем размерность массива.  setlength(arr,n);                                      // выделяем память под массив.  y := 1;                                             // нужно для подсчета произведения элементов массива.     for i:= 0 to (n-1) do // начало цикла.        begin          arr[i] := random(-100, 100); // заполняем эл-т массива числом из диапазона -100; 100.            if arr[i] > 0 then              begin                 x := x + arr[i];    // считаем сумму элементов.                 y := y * arr[i];    // считаем произведение элементов.                 z := z + 1;         // считаем количество элементов.              end;         end;  writeln(\'Сумма положительных элементов массива: \', x);   writeln(\'Произведение положительных элементов массива: \', round(y,2));  writeln(\'Количество положительных элементов массива: \', z); End.