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

@ololoshololosh · Регистрация: 07.04.2013

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

@MicM · 30.06.2013, 22:28

Pascal

const
  n=5;
var
  a:array [1..n,1..n] of integer;
  i,j,p:integer;
begin
  randomize;
  p:=1;
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=random(9)+1;
    write (a[i,j]:3);
    if i+j>n+1 then p:=p*a[i,j];
   end;
   writeln;
  end;
  writeln ('Proizvedenie: ',p);
  readln;
end.

@ololoshololosh · 02.07.2013, 11:43 **[ТС]**

что-то не так, оно считает произведение с минусом

@MicM · 03.07.2013, 15:38

Измени тип переменной p на longint

@ololoshololosh 0 / 0 / 1 Регистрация: 07.04.2013 Сообщений: 29
		1
	В двухмерном массиве вычислить произведение всех элементов, расположенных ниже диагонали, противоположной главной 30.06.2013, 21:21. Показов 862. Ответов 3 Метки нет (Все метки) В двухмерном массиве вычислить произведение всех элементов, расположенных ниже диагонали, противоположной главной. 0

@ololoshololosh 0 / 0 / 1 Регистрация: 07.04.2013 Сообщений: 29
	02.07.2013, 11:43 [ТС]	3
	что-то не так, оно считает произведение с минусом 0

@MicM 840 / 498 / 325 Регистрация: 29.12.2009 Сообщений: 1,106
	03.07.2013, 15:38	4
	Измени тип переменной p на longint 0

Опции темы