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

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

Задать свой вопрос
1 ответ
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;

Var
 ar:array[1..n] of integer;
 i,j:integer;
 k:real;
begin 
writeln('Array:');
  for i:=1 to n do
   readln(ar[i]);
  k:=ar[1]/ar[2];
  for i:=1 to n-1 do
   if ar[i]/ar[i+1]lt;gt;k then
    begin
     writeln('No');
     exit;
    end;
  writeln('Yup');
end.

Пример ввода:
1
2
4
8
Пример вывода:
Yup
Амелия Морсахова
Оправдываюсь, не могу отредактировать ответ. Заместо Yup выводите k, заместо No-0
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт