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

//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]<>k then
    begin
     writeln('No');
     exit;
    end;
  writeln('Yup');
end.

Пример ввода:
1
2
4
8
Пример вывода:
Yup

Var
  A: array [1..120] of real;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 120 do
  begin
    A[i] := random(101);
    writeln('A[', i, '] => ', A[i]);
  end;
  writeln();
 
  for i := 1 to 120 do
    if abs(A[i]) > 17 then
      inc(res);
 
  writeln(res);
end.



var
  C: array [1..20] of integer;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 20 do
  begin
    C[i] := random(101);
    writeln('C[', i, '] => ', C[i]);
  end;
  writeln();
 
  for i := 1 to 20 do
    if C[i] mod 2 = 1 then
      C[i] := -1 * C[i];
 
  writeln('New array:');
  for i := 1 to 20 do
  begin
    writeln('C[', i, '] => ', C[i]);
  end;
end.

       Из условия задачи можно сформулировать следующие основные предположения:

- мячик мал по сравнению с Землей, поэтому его можно считать материальной точкой;

- изменение высоты мячика мало, поэтому ускорение свободного падения можно считать постоянной величиной g = 9,8 м/с2 , следовательно, движение по оси OУ можно считать равноускоренным;

- скорость бросания мячика мала, поэтому сопротивлением воздуха можно пренебречь, следовательно, движение по оси OХ можно считать равномерным.

Формальная модель

Для формализации модели обозначим величины:

- начальную скорость мячика – v0;

- угол бросания мячика - α ;

- высоту стенки - h;

- расстояние до стенки -s.