• Дан одномерный целочисленный массив . Найти произведение элементов массива , меньших 10( срочно пожалуйста )

Ответы 1

  • Program n1;var a: array[1..10] of integer;i: integer;p: real;beginrandomize;write('массив: ');p:=1;for i:=1 to 10 do begina[i]:=random(41)-20;write(a[i],' ');if a[i]<10 then p:=p*a[i];end;writeln;write('произв. <10: ',p);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years