Найти произведение отрицательных элементов - Turbo Pascal

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

Добрый вечер, срочно нужна помощь) В общем задача такая В матрице Z (n,m) найти произведение отрицательных элементов.

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

textual
const
  n = 4;
  m = 3;
var
  z : array [1..n, 1..m] of integer;
  i, j, p : integer;  
begin
  p := 1;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      z[i,j] := random(10) - 5;
      write(z[i,j]:4);
      if z[i,j] < 0 then p := p * z[i,j] 
    end;
    writeln
  end;
  writeln('произведение отрицательных: ', p);  
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.286 из 5


СДЕЛАЙТЕ РЕПОСТ