Массив из 30 элементов вводится с клавиатуры, найти произведение всех элементов, сумму нечетных по счету и количество элементов равных нулю.
Мне нужна программа в паскале, очень нужно плиз :з тому кто сделает все верно поставлю "лучший"

А как лучший поставить? xD

Не знаю, если честно) Да ладно, и так сойдёт)

var a: array[1..30] of real;pr, summ: real;i, k: integer;begink:=0;pr:=1;summ:=0;for i:=1 to 30 do beginreadln(a[i]);If i mod 2 <> 0 thensumm:=summ + a[i];If a[i] = 0 then k:=k+1;pr:=pr*a[i];end;writeln('Произведение элементов = ', pr);writeln('Сумма элементов, стоящих на нечётных местах = ', summ);writeln('Количество нулей в массиве: ', k);end.