В одномерном целочисленном массиве вычислить произведение ненулевых элементов, расположенных на четных местах. В массиве 10 элементов, которые вводятся вручную с клавиатуры. Разработать программу на языке Pascal.
Ответы
Ответ дал:
0
const
n=10;
var
a:array [1..n] of integer;
i,pr:integer;
flag:boolean;
begin
pr:=1; flag:=false;
for i:=1 to n do
begin
readln(a[i]);
if (i mod 2=0) and (a[i]<>0) then
begin
pr:=pr*a[i];
flag:=true;
end;
end;
if flag then
writeln('Произведение: ',pr)
else
writeln('Нет подходящих множителей.');
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад