помогите решить задачку
-
bakerfallen
- Сообщения: 1
- Зарегистрирован: 20 ноя 2013, 01:36
дана целочисленная неквадратная матрица порядка 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]
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]
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.