Массив из 30 элементов вводится с клавиатуры, найти произведение всех элементов, сумму...

Question

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

Comments

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var a:=ReadArrInteger(30); Writeln('Произведение элементов ', a.Aggregate(1.0,(p,e)->p*e)); Writeln('Сумма нечетных по порядку ', Range(1,30,2).Select(i->a[i]).Sum); Writeln('Нулевых ',a.Where(x->x=0).Count) end.

Answer 1

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

Comments

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

---

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