Составить постановку, алгоритм и в pascale программу, подсчитывающую сумму положительных элементов массива Z из 11 чисел.Значение элементов массива рассчитать по формуле tgG, где G номер элемента массива

Предыдущий
вопрос Следующий
вопрос

Постановка:
Дан массив Z из 11 чисел. Необходимо найти сумму положительных элементов массива Z, где значения элементов массива рассчитываются по формуле tgG, где G - номер элемента массива.

Алгоритм:

Объявить массив Z из 11 чисел.Для каждого элемента массива Z от 1 до 11:
2.1 Вычислить значение элемента как tg(G), где G - номер элемента.Инициализировать переменную sum = 0.Для каждого элемента массива Z:
4.1 Если элемент больше 0, то добавить его к переменной sum.Вывести сумму положительных элементов массива Z.

Программа на Pascal:

program SumOfPositiveElements;
var
Z: array[1..11] of Real;
sum, G: Integer;
begin
for G := 1 to 11 do
begin
Z[G] := tan(G);
end;
sum := 0;
for G := 1 to 11 do
begin
if Z[G] > 0 then
sum := sum + Z[G];
end;
writeln('Сумма положительных элементов массива Z: ', sum:0:2);
end.

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