• (сумма)
    найти произведение элементов массива вещественных чисел, меньших заданного
    числа.

Ответы 1

  • var  a:array[1..10]of integer;  i,k,p:integer;beginfor i:=1 to 10 do  begin  a[i]:=random(10)+1;  write(a[i],'; ');  end;writeln;write('Введите число: ');readln(k);p:=1;for i:=1 to 10 do  if a[i]<k then p:=p*a[i];writeln('P=',p);end.  
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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