//Я так понял, что под порядком "неубывания" вы имеете ввиду порядок возрастания...
//Поскольку вы не указали исходный массив, я его сгенерировал, а также вывел на экран, чтобы можно было проверить результаты
const
size = 10;
x = -100;
y = 100;
var
arr: array[1..size] of integer;
counter, sum, positiveNumbers, negativeNumbers: integer;
increase: boolean;
begin
randomize;
counter := 0;
sum := 0;
positiveNumbers := 0;
negativeNumbers := 0;
increase := true;
writeln('Массив:');
for var i := 1 to size do
begin
arr[i] := random(x, y);
writeln(i, ') ', arr[i]);
if (arr[i] > 0) then
begin
counter := counter + 1;
positiveNumbers := positiveNumbers + 1;
sum := sum + arr[i];
end
else
negativeNumbers := negativeNumbers + 1;
end;
writeln();
if (counter > 0) then
writeln('1) Среднее арифметическое всех положительных элементов массива = ', sum / counter)
else
writeln('1) Положительных элементов массива не было (0)');
if (positiveNumbers > negativeNumbers) then
writeln('2) В массиве больше положительных элементов')
else if (positiveNumbers = negativeNumbers) then
writeln('2) В массиве одинаковое количество положительных и отрицательных элементов')
else
writeln('2) В массиве больше отрицательных элементов');
for var j := 1 to size - 1 do
begin
if (arr[j] > arr[j + 1]) then
begin
increase := false;
break;
end;
end;
if (increase) then
writeln('3) Элементы расположены в порядке возрастания')
else
writeln('3) Элементы не расположены в порядке возрастания');
end.
Чёрный ящик- это некоторый автомат, выполняющий действия с числами или строками
Объяснение:
Пример:
Под буквой А - машина, в которую заложен алгоритм:
1) Если число или текст состоит из 2х символов, то поменяй их местами
2) Если число состоит из 3х символов, то помести на первую позицию последний символ, а на третью позицию первый символ
3) Если число состоит из 4х символов, то на первую позицию поставь последний символ, на вторую, предпоследний, на третью второй, на четвёртую - первый.
4) Если 5 символов, то поменяй местами первый с последним, а второй с предпоследним
Опыт 1. ВХОД: ШаЛаШ ВЫХОД: Ш(с конца), а(предпоследняя), Л, а(вторая), Ш(первая).
Здесь слова осталось неизменным, т.к. буквы совпадают.
Опыт 2. 159 -> меняем местами первый и последний символ
и т.д.
Под буквой Б - машина смещает все буквы алфавита на предыдущую:
ПОП - перед П в алфавите стоит О, перед О - Н -> ОНО
№ 12
Под буквой А - машина выбирает наименьшее из двух введённых чисел
№ 13
Под буквой А - считает количество гласных и согласных букв в слове
