помогите решить задачку
Добавлено: 20 ноя 2013, 01:39
дана целочисленная неквадратная матрица порядка n/m найти номера строк, элементы которых образуют геометрическую прогрессию, помогите решить на free pascal
[syntax='Delphi']
for i:=1 to n do begin
for j:=2 to m-1 do
if A[i,j]/A[i, j-1] != A[i, j+1]/A[i,j] break;
if (j=m) writeln(i);
end;
[/syntax]