А10=6234 напишите в таблице

см.пояснение

Объяснение:

#include <iostream>

#include <cstdlib>

#include <ctime>

using namespace std;

const int n=499;

int main() {

   srand(time(0));

int arr[n],min=100,max=-100,iter=0,mediana;

for (int i=0;i<n;i++){

 arr[i]=rand()%200-100;

 if (min>arr[i])

  min=arr[i];

 if (max<arr[i])

  max=arr[i];

}

for (int i=0;i<n;i++){

 if(arr[i]==max)

  iter++;

}

int swap;

for (int i=0;i<n-1;i++){

 for (int j=i+1;j<n;j++){

  if (arr[i]>arr[j]){

   swap=arr[i];

   arr[i]=arr[j];

   arr[j]=swap;

  }

 }

}

mediana=n/2+1;

mediana=arr[mediana];

cout<<"min = "<<min<<endl;

cout<<"max = "<<max<<" povtorov: "<<iter<<endl;

cout<<"mediana = "<<mediana;

return 0;

}

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var age:=ReadInteger('Введите возраст:');
  var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
  if gender=1 then
    case age of
    0..13:Writeln('Мальчик');
    14..20:Writeln('Юноша');
    21..70:Writeln('Мужчина');
    else Writeln('Старец')
    end
  else
    case age of
    0..13:Writeln('Девочка');
    14..20:Writeln('Девушка');
    21..70:Writeln('Женщина');
    else Writeln('Старушка')
    end
end.