сформировать с помощью ДСЧ одномерный массив и вывести его на печать . Отсортировать по возрастанию только четные элементы массива
пожалуйста помогите....
Другие языки программирования и технологии
сформировать с помощью ДСЧ одномерный массив и вывести его на печать
Сортировка видоизменённым методом вставок:
using System;
using System.Console;
module N84563263
{
Main() : void
{
def InputInt()
{
mutable X;
match (int.TryParse(ReadLine(), out X) && X > 9 && X < 101)
{
| true => X
| _ =>
{
Write("Ошибка! Введите целое число от 10 до 100: ");
InputInt()
}
}
}
Write("Введите размер массива: ");
def n = InputInt();
def rand = Random();
WriteLine($"Сформированный массив [$n]:");
def a = array(n);
foreach (i in [0 .. n - 1])
{
a[і] = rand.Next(-100, 101);
Write("{0, 5}", a[і])
}
WriteLine();
foreach (i in [1 .. n - 1])
unless (a[і] %&& 1)
{
def t = a[і];
mutable j = i - 1;
mutable k = i;
while (j >= 0)
{
unless (a[j] %&& 1)
when (a[j] > t)
{
a[k] = a[j];
k = j;
}
j--
}
unless (k == i)
a[k] = t
}
WriteLine();
WriteLine("Массив с отсортированными чётными элементами: ");
foreach (x in a)
Write("{0, 5}", x);
WriteLine();
WriteLine("Для завершения работы нажмите клавишу any key...");
_ = ReadKey();
}
}
Чётные элементы были отсортированы по возрастанию (вернее, по неубыванию) , а нечётные остались на прежних местах.
P.S. ДСЧ - датчик случайных чисел.
using System;
using System.Console;
module N84563263
{
Main() : void
{
def InputInt()
{
mutable X;
match (int.TryParse(ReadLine(), out X) && X > 9 && X < 101)
{
| true => X
| _ =>
{
Write("Ошибка! Введите целое число от 10 до 100: ");
InputInt()
}
}
}
Write("Введите размер массива: ");
def n = InputInt();
def rand = Random();
WriteLine($"Сформированный массив [$n]:");
def a = array(n);
foreach (i in [0 .. n - 1])
{
a[і] = rand.Next(-100, 101);
Write("{0, 5}", a[і])
}
WriteLine();
foreach (i in [1 .. n - 1])
unless (a[і] %&& 1)
{
def t = a[і];
mutable j = i - 1;
mutable k = i;
while (j >= 0)
{
unless (a[j] %&& 1)
when (a[j] > t)
{
a[k] = a[j];
k = j;
}
j--
}
unless (k == i)
a[k] = t
}
WriteLine();
WriteLine("Массив с отсортированными чётными элементами: ");
foreach (x in a)
Write("{0, 5}", x);
WriteLine();
WriteLine("Для завершения работы нажмите клавишу any key...");
_ = ReadKey();
}
}

Чётные элементы были отсортированы по возрастанию (вернее, по неубыванию) , а нечётные остались на прежних местах.
P.S. ДСЧ - датчик случайных чисел.
что такое ДСЧ???
Датчик случайных чисел)
Похожие вопросы
- сформировать с помощью ДСЧ одномерный массив и вывести его на печать .
- Сформировать одномерный массив на языке программирования Паскаль
- Заполнить случайным образом одномерный массив из n элементов и обменять местами последний и максимальный (в паскале)
- Написать в С++. Задан одномерный массив А из 10 чисел.
- как сформировать одномерный массив различных чисел в паскале?
- СРОЧНО ПАСКАЛЬ задан одномерный массив с (1..10), дать ответ: каких элементов больше: положительных или отрицательных
- Задача pascal abc fr. Одномерный массив
- C++ одномерный массив
- Как правильно задать одномерный массив в C++?
- Помощь в С++ (одномерный массивы) опишите код