Написать программу работы с одномерным массивом из 15 вещественных элементов для решения задач:

#include
#include
using namespace std;

int main(int argc, char *argv[])
{
  const int n = 15;
  double a[n], max, R1, R2;
  srand(static_cast (time(NULL)));
  cout.precision(3);
  cout << fixed;
  cout << "Дан массив [" << n << "]:" << endl;
  for (size_t i = 0; i < n; i++)
  {
    a[i] = static_cast (rand()) / RAND_MAX * 100 - 50;
    cout << setw(8) << a[i];
  }
  max = a[0];
  for (size_t i = 1; i < n; i++)
    if (a[i] > max)
      max = a[i];
  cout << endl << "Максимальный элемент массива = " << max << endl;
  cout << "Введите R1: ";
  cin >> R1;
  cout << "Введите R2: ";
  cin >> R2;
  int count = 0;
  for (size_t i = 0; i < n; i++)
    if (a[i] >= R1 && a[i] <= R2)
      count++;
  cout << "Кол-во элементов в заданном диапазоне = " << count << endl;
  for (size_t i = 0; i < n - 1; i++)
    for (size_t j = 0; j < n - i - 1; j++)
      if (a[j] > a[j + 1])
      {
        double t = a[j];
        a[j] = a[j + 1];
        a[j + 1] = t;
      }
  cout << endl << "Отсортированный массив: " << endl;
  for (size_t i = 0; i < n; i++)
    cout << setw(8) << a[i];
  cout << endl << endl << "Для завершения работы нажмите Enter...";
  cin.sync();
  cin.get();
  return 0;
}

Скриншот:

Дельфи, Борланд, С++, Кобол, Фортран, Ассемблер или ещё какой язык?

Если ПАСКАЛЬ пиши в адрес