• Ввести массив целых чисел,который в заранее не известен
    Ввод чисел заканчивается,когда сумма введенных чисел становится больше заданного числа
    Получить произведение элемента производного массива.

Ответы 3

  • Тут массив вообще не нужен=))
  • constn=10000;varb:array[1..n] of integer;a,s,p,i:integer;beginreadln(a);i:=1;p:=1;s:=0;while s<=a dobeginreadln(b[i]);s:=s+b[i];p:=p*b[i];i:=i+1;end;writeln('Произведение элементов = ',p);end.
  • VarA,S,P,M:real;BeginWriteLn('Введи число');ReadLn(M);S:=0;P:=1;WriteLn('Введи массив чисел');RepeatReadLn(A);S:=S+A;P:=P*A;Until S>M;WriteLn('Произведение элементов равно ',P);WriteLn('Сумма элементов равна ',S);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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