Paskal,вывод матрицы

[Live1SMR]

Задача:
Дана целочисленная квадратная матрица. Вывести ее на экран и определить произведение элементов в тех строках, которые не содержат отрицательных элементов.

Вот что я написал, но программа не работает, не считает произведение...

Var a:array[1..10, 1..10] of longint;
i,j,n,m,h,proizv:integer;
Begin
clrscr;
writeln('vvedite n');
readln(n);
Begin
writeln('vvedite znacheniay matrizi');
for i:=1 to n do
Begin
for j:=1 to n do
readln(a[i,j]);
end;
for i:=1 to n do
Begin
for j:=1 to n do
write(a[i,j]:10,' ');
writeln;
end; end;
proizv:=0;
Begin
for i:=1 to n do
Begin
for j:=1 to n do
if a[i,j]>=0 then
proizv:=proizv*a[i,j] else break;
writeln('v stroke nomer',i,' proizvedenie ravno ',proizv);
end;
end;
readln;
end.

Помогите пожалуйста, исправьте программу, очень нужна ваша помощь.)

[alexander13]

Как минимум, должно быть

proizv:=1;

вместо

proizv:=0;

Весь код не смотрел, он нечитабелен.

[RomiKon]

Var a:array[1..10, 1..10] of longint;
  i,j,n,m,h,proizv:integer;
Begin
  clrscr;
  writeln('vvedite n');
  readln(n);
  writeln('vvedite znacheniay matrizi');
  for i:=1 to n do
  Begin
    for j:=1 to n do
    readln(a[i,j]);
  end;
  for i:=1 to n do
  Begin
    for j:=1 to n do
    write(a[i,j]:10,' ');
    writeln;
  end; 
  for i:=1 to n do
  Begin
    proizv:=1;
    for j:=1 to n do
      if a[i,j]>=0 then
        proizv:=proizv*a[i,j] 
     else 
       break;
    writeln('v stroke nomer',i,' proizvedenie ravno ',proizv);
  end;
  readln;
end.

[alexander13]

Хм.. Ну, в таком случае, она будет работать неправильно. Будет выводить произведение положительных элементов для каждой строки.

upd.
Ну, точнее, произведение положительных элементов в строке до встречи первого отрицательного эл-та. Как-то так.

[Live1SMR]

При замене на

proizv:=1;

программа выдаёт после ввода значений, ошибку проверки диапазона.

[alexander13]

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

При замене на

proizv:=1;

программа выдаёт после ввода значений, ошибку проверки диапазона.

Во-первых, сомнительно.
Во-вторых, если немножко подумать головой, то можно понять, что если инициализировать что-то нулем и потом на это что-то умножать, то ничего кроме нуля не получится в результате.
В-третьих, еще раз говорю, даже при изменении значения на 1 программа не будет работать правильно.

upd.
Можно как-нибудь так сделать

const 
	n = 3;

var 
	a : array[1..n, 1..n] of longint;
	i, j, m, h, proizv : integer;
BEGIN
	writeln('vvedite znacheniay matrizi');
	for i := 1 to n do
		for j := 1 to n do
			readln(a[i,j]);
 
	for i := 1 to n do begin
		for j := 1 to n do
			write(a[i,j]:10,' ');
		writeln;
	end; 
  
	for i := 1 to n do begin
		proizv := 1;
		for j := 1 to n do
			if a[i,j] >= 0 then
				proizv := proizv*a[i,j] 
			else begin
				proizv := 0;
				break;
			end;
		if proizv <> 0 then
			writeln('v stroke nomer ',i,' proizvedenie ravno ',proizv);
	end;
	readln;
END.

[Live1SMR]

программа производит заполнение матрицы, но никаких вычислений не производит.

[alexander13]

А где обоснование слов? Скриншот, текст ошибки, пример входных данных, на которых она не считает? У меня моя программа работает.

[Live1SMR]

А нет, мой косяк, не дописал.
Программа и вправду работает...
Спасибо.