Как найти произведение отрицательных чисел в паскале - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 18.08.2016

Сообщений: 13

Найти произведение отрицательных чисел

18.08.2016, 22:07. Показов 12377. Ответов 1

Составить алгоритм нахождения произведения только отрицательных из вводимых с клавиатуры вещественных чисел.
Пожалуста наишите программу )

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

19.08.2016, 09:44

Сообщение было отмечено Настя394 как решение

Решение

Pascal

var n,i,k:integer;
    a,p:real;
begin
write('Введите количество чисел n=');
readln(n);
writeln('Введите ',n,' вещественных чисел');
p:=1;
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if a<=0 then
   begin
    k:=1;
    p:=p*a;
   end;
 end;
if k=0 then p:=0;
writeln('Произведение отрицательных=',p:0:2);
end.

Миниатюры

Источник

Узнай цену своей работы

Формулировка задачи:

Для различных вводимых с клавиатуры чисел, найти произведение отрицательных чисел. Колличество отрицательных чисел — N задать с клавиатуры, выход их программы при N = 0

Код к задаче: «Найти произведение отрицательных чисел»

textual

Листинг программы

var
  a,x,i,proiz,n:integer;
begin
  write('Vvedite n: ');
  readln(n);
  proiz:=1;
  for i:=1 to n do
      begin
        write('Vvedite #',i,': ');
        readln(a);
        if (a<0) then proiz:=proiz*a;
      end;
  writeln('Proiz: ',proiz);
  readln;
end.

Источник

УИ

Улан Исмаилов

program q171375212;
var
i, n, x, p: integer;
begin
Write(‘N = ‘);
ReadLn(n);
p := 1;
for i := 1 to n do
begin
ReadLn(x);
if x < 0 then
p := p * x;
end;
WriteLn(‘Ответ: ‘, p);
ReadLn;
end.

Источник

Вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале.

На этой странице сайта вы найдете ответы на вопрос Вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале?,
относящийся к категории Информатика. Сложность вопроса соответствует базовым
знаниям учеников 5 — 9 классов. Для получения дополнительной информации
найдите другие вопросы, относящимися к данной тематике, с помощью поисковой
системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и
задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям.
Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы
помогут найти нужную информацию.

Источник

Светило науки — 553134 ответа — 388270 раз оказано помощи

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger(‘Количество строк в массиве:’);
var n:=ReadInteger(‘Количество столбцов в массиве:’);
Writeln(‘*** Исходный массив [‘,m,’,’,n,’] ***’);
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*’-‘);
Writeln(‘Произведение отрицательных: ‘,
a.ElementsByRow.Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)))
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
-81 -56 21 11 -1 -74 25 52 -89 -13
99 59 9 94 -8 -56 99 45 20 11
-93 90 -20 73 -13 69 -4 90 88 -25
72 -94 -96 -86 -88 -35 76 -34 -63 -64
-78 -98 16 73 34 -66 48 93 -74 42
—————————————-
Произведение отрицательных: -5146553166409683850017552514909470720000

Источник