Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран не нулевые элементы и найти их произведения

Anutazaitseva2002 Anutazaitseva2002    3   23.09.2019 21:10    0

Ответы
Яяяяя11111111 Яяяяя11111111  27.08.2020 06:25
Var a: array[0..10] of integer;
i,n,sum: integer;
begin
sum:=1;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=n;
if n<>0 then
begin
sum:=sum*a[i];
end;
end;
for i:=0 to 9 do
begin
if a[i]<>0 then writeln('Значения: ',a[i]);
end;
writeln('Произведение: ',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика