дана вещественная матрица размером N*N. вычислить произведение отрицательных элементов, находящихся над и

[IRINOK]

дана вещественная матрица размером N*N. вычислить произведение отрицательных элементов, находящихся над и под главной диагональю матрицы

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!!!!!!!

[Asker13]

http://programmersforum.ru/showthread.php?t=70310
Прямо с первого сообщения.

[IRINOK]

пОДСКАЖИТЕ, КАК НАЧАТЬ НАПИСАНИЕ САМОЙ ПРОГРАММЫ, Я НЕ РАЗБИРАЮСЬ В ЭТОМ(((((

[Prime123]

А программа на китайском должна быть?На японском?На кабардинском?

[Базиля]

вы уже вторую тему создаете при этом просите тупо решить задачу, здесь ва не решебник. За спасибо вряд-ли кто возьмется решать. Если что стучите в аську

[Asker13]

program Project1;
const
  N = 10;
var
  a: array [1..N, 1..N] of integer;
  i,j: integer;
  x: real;
begin
  Randomize;
  for i := 1 to N do begin
    for j := 1 to N do begin
      a[i,j] := Random(10)-5;
      Write(a[i,j], ' ');
    end;
    WriteLn;
  end;

  x := 1;

  for i := 1 to N do
    for j := 1 to N do
      if (i <> j) and (a[i,j] < 0) then
        x := x * a[i,j];

  WriteLn(x:0:0);

  ReadLn;
end.

Плюс ставь и скатертью дорога.

[IRINOK]

Большое всем спасибо)))))))))))))