// Аня_Бобякина_2011-11-27-5
#include <iostream>
#include <ctime>
using namespace std;
#define N 26
#define A 10
#define B 90
void main()
{
unsigned int a[N];
do
{
srand((unsigned) time(NULL));
for (int n = 0; n < N; n++)
{
a[n] = A + rand() % B;
cout << ' ' << a[n];
}
int max = 0, min = A + B, minIndex = 0, maxIndex = 0;
for (int n = 0; n < N; n++)
{
if (a[n] < min)
{
min = a[n];
minIndex = n;
}
if (a[n] > max)
{
max = a[n];
maxIndex = n;
}
}
cout << "\n---------------\n";
cout << " Minimum: " << " a[" << minIndex << "] = " << a[minIndex] << endl;
cout << " Maximum: " << " a[" << maxIndex << "] = " << a[maxIndex] << endl;
cout << "---------------";
int temp;
if (minIndex < maxIndex)
{
maxIndex--;
for (++minIndex; minIndex < maxIndex; minIndex++, maxIndex--)
{
temp = a[minIndex];
a[minIndex] = a[maxIndex];
a[maxIndex] = temp;
}
}
else
{
minIndex--;
for (++maxIndex; maxIndex < minIndex; maxIndex++, minIndex--)
{
temp = a[maxIndex];
a[maxIndex] = a[minIndex];
a[minIndex] = temp;
}
}
cout << endl;
for (int n = -1; n < N - 1; n++, cout << ' ' << a[n]);
fflush(stdin);
cin.get();
}
while (true);
}
Другие языки программирования и технологии
Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максима
Похожие вопросы
- Дан массив. Выведите те его элементы, которые встречаются в массиве только один раз. В чем ошибка?
- задачка PAscal. найти сумму положительных элементов массива, расположенных до минимального элемента этого массива
- C# Дан массив размера N. Найти 2 элемента массива, сумма которых наиболее близка к максимуму массива и поменять
- Вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами - C++
- дан массив целых чисел F1,F2...Fn. распечатать элементы, нах-ся между min и max и их номера. подскажите где я ошибся
- Дан массив L1,..,L20. Заменить элементы, стоящие после Lmin, на среднее арифметическое всего ряда.
- Дан массив размера N. Вывести все двузначные элементы массива и их номера. ПОМОГИТЕ pascal ХЕЛП
- задача в pascale. дан массив. Найти минимальный элемент и отсортировать все элементы стоящие после него.
- Дан массив из 20 элементов. Найти номер минимального элемента. (Pascal ABC)
- Pascal . Дан массив вещественных чисел. Найти сумму элементов, номера которых являются простыми числами