Составить программу , вычисляющую среднее арифметическое АМеап = (Х+ У)/2 и среднее геометрическое GМеап = Sqrt(X*У) двух положительных чисел X и У​

Var
  a: integer;  //a - вводимое число
  n, s: integer;  //n- количество введенных чисел, s - сумма этих чисел

begin
  n:= 0;  //обнуляем счетчик
  s:= 0;
  a:= 1;  {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
  while a <> 0 do
  begin
    writeln('Введите целое число');
    readln(a);
    if a <> 0 then  //Чтобы при подсчете среднего арифметического не учитывался 0
    begin
      n:= n + 1;
      s:= s + a;
    end;
  end;
  writeln('Среднее арифметическое введенных чисел:  ', s / n);
end.

#include<iostream>

using namespace std;

int main()

{

int l[15];

double min=0,max=0;

for(int i=0;i<15;i++)

{

  cin>>l[i];

  if(l[i]>0&&l[i]<min&&min!=0)

      min=l[i];

      if(min==0&&l[i]>0)

          min=l[i];

  if(l[i]<0&&l[i]>max&&max!=0)

      max=l[i];

      if(max==0&&l[i]<0)

       max=l[i];

}

sort(l,l+15);

cout<<min<<" "<<max<<endl;

cout<<min/max<<endl;

for(int i=14;i>=0;i--)

  cout<<l[i]<<" ";

  return 0;

}