Дан массив целых чисел размера N. Проверить, образуют ли его эелменты, перечисленые в том же порядке, геометрическую прогрессию. Если образуют то вывести знаменатель прогрессии, если нет то вывести 0.

program zz1;

const n = 5; / / задаем количество элементов в массиве

var i, k, v:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

k:=m[2] div m[1]; / / находим знаменатель

for i:=1 to n-1 do

if m[i] * k = m[i + 1] then v:=v + 1; / / проверяем, если каждое последующее число, начиная со второго,

/ / получается из предыдущего умножением его на знаменатель, то считаем его

if v = n - 1 then write (' элементы массива образуют геометрическую прогрессию, знаменатель = ', k) else write (0);

end.