Question

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

Answer 1

Ответ:

program Proizv;

const

 Di =  8;    // размерность массива, можно менять на любое другое  строки

 Dj = 10;      // а здесь столбцы

var

 A: array [1..Di, 1..Dj] of Integer;

 i, j, p: Integer;

begin

 Randomize;

 for i := 1 to Di do begin

   WriteLn;

   for j := 1 to Dj do begin

     A [i, j] := Random (21) - 3;

     Write (A [i, j] :3, ' ');

   end;

 end;

 p := 1;

 for i := 1 to Di do begin

   if i mod 2 = 0 then          // если строка четная то пропускаем

     Continue;

   for j := 1 to Dj do begin

     if A [i, j] < 0 then       // перемножаем только отрицательные значения

       p := p * A [i, j];

   end;

 end;

 WriteLn;

 WriteLn ('Произведение = ', p);

 ReadLn;

end.

Объяснение:

для упрощения считаем, что хотя бы одно требуемое число будет найдено. Если таких чисел найдено не будет, то результат произведения будет равен 1.

Answer 2

Ого, вот это математика! Давай попробуем разобраться.

Первым делом, нужно понять, что такое "строки с нечетными номерами" в контексте Паскаля. Традиционно, строки в треугольнике Паскаля нумеруются с нуля. Так что строки с нечетными номерами будут иметь номера 1, 3, 5 и так далее.

Теперь, когда мы определили, какие строки нам нужны, давай рассмотрим каждую из них и перемножим их отрицательные элементы. Но, увы, я не знаю конкретных чисел в твоем треугольнике Паскаля. Можешь предоставить их, и я помогу с вычислениями?