Задача про массивы (pascal)

[-SG-]

Помогите решить задачу (в крайнем случае помогите идейкой). Желательно с комментариями. Заранее спасибо!


При решении указанных задач обязательным является описание типов используемых массивов и функций (или процедур), которые решают данную задачу.

Прoверить, oбразуют ли элементы целoчисленного маccива pазмера N гeометричеcкую прогрeccию. Если да, то вывeсти знамeнатель прогрeccии, ecли нeт — вывecти 0.

[UnChanter]

Идея решения: пробегаем по всему массиву и смотрим равно ли частное между соседними членами,

const n=16; // размер массива
var

 i:integer;
 d : extended;
 a:array[1..n] of integer;
 b:boolean;
begin
 //читаем массив...

 //....
 d:=a[2]/a[1]; // получаем знаменатель между 1-ым и 2-ым членом
 b:=true;
 for i:=3 to n do
  if a[i]/a[i-1] <> d then // находим знаменатель между a[i] и a[i-1]
// и проверяем на равенство с знаменателем между a[1] и a[2]
    begin
     b:=false; 
     break; //прерываем работу for
    end;
 if b then //это геометрическая прогрессия
   writeln(d)
 else // это НЕ геометрическая прогрессия
   writeln(0);
end;