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

@fuyukai_desu · Регистрация: 04.10.2021

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

Перевести программу с pacal на c++
Формулировка задачи:
В массиве z(n) один нулевой элемент. Найти где он находится и вычислить произведение отрицательных элементов последующих за ним.

Pascal

var
  Z: array[1..100] of integer;
  P: integer;
  n, i, j: byte;
  fln: boolean;
  
begin
  write(' n = ');
  readln(n);
  P := 1;
  fln := true;
  writeln('Введите ', n, ' целых чисел:');
  for i := 1 to n do begin
    read(z[i]);
    if fln then begin
      if z[i] = 0 then begin
        j := i;
        fln := false
      end
    end
    else
    if z[i] < 0 then P := P * z[i]
  end;
  writeln;
  writeln('Номер нулевого элемента: ', j);
  writeln('Произведение отрицательных элементов после нулевого: ', P);
end.

@zss · 06.11.2021, 18:28

Сообщение от fuyukai_desu

Перевести программу с pacal на c++

А зачем, если уже есть аналогичные задачи на С++?
Вычислить сумму и количество элементов массива, расположенных после нулевого элемента

@zss Модератор 13496 / 10751 / 6406 Регистрация: 18.12.2011 Сообщений: 28,687
	06.11.2021, 18:28	2
	Сообщение от fuyukai_desu Перевести программу с pacal на c++ А зачем, если уже есть аналогичные задачи на С++? Вычислить сумму и количество элементов массива, расположенных после нулевого элемента 0

Опции темы