Последовательность чисел

@bloodpsixer · Регистрация: 21.01.2018

Author24 — интернет-сервис помощи студентам

1. В последовательности чисел подсчитать произведение чисел, кратных 3.
2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).

@ZX Spectrum-128 · 25.01.2018, 09:36

В последовательности вещественных чисел подсчитать произведение чисел, кратных 3.
В последовательности чисел сравнить, что больше сумма положительных или произведение отрицательных
Взято отсюда: Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел

Pascal

var
  k, mind, i, n, index: integer;
  m: real;
 
begin
  write('N: ');
  readln(n);
  writeln('Введите ', n, ' вещественных чисел');
  index := 0;
  k := 0;
  mind := index;
  for i := 1 to n do
  begin
    mind := index;
    read(m);
    if m < 0 then 
    begin
      index := i;
      inc(k);
    end;
  end;
  if index = 0 then 
    writeln('В последовательности отрицательных нет')
  else 
  if k = 1 then
    writeln('В последовательности только 1 отрицательное ')
  else
    writeln('Порядковый номер предпоследнего отрицательного числа = ', mind);
  readln;
end.

@bloodpsixer 0 / 0 / 0 Регистрация: 21.01.2018 Сообщений: 26
		1
	Последовательность чисел 25.01.2018, 00:15. Показов 2041. Ответов 1 Метки нет (Все метки) 1. В последовательности чисел подсчитать произведение чисел, кратных 3. 2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных. 3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа). 0

	25.01.2018, 09:36

Опции темы

Последовательность чисел

Решение