Массив из 30 элементов вводится с клавиатуры, найти произведение всех элементов, сумму нечетных по счету и количество элементов равных нулю.
Мне нужна программа в паскале, очень нужно плиз :з тому кто сделает все верно поставлю "лучший"
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
