//Я так понял, что под порядком "неубывания" вы имеете ввиду порядок возрастания...
//Поскольку вы не указали исходный массив, я его сгенерировал, а также вывел на экран, чтобы можно было проверить результаты
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.
Поделитесь своими знаниями, ответьте на вопрос:
Пожайлуста информатика7 класс Обобщение и систематизация основных понятий темы «Обработка текстовой информации».В одной из кодировок Unicode на каждый символ отводится 16 битов. Определите информационный объем текста из 26 символов в этой кодировке. В ответе укажите только число байт. *Мой ответВ кодировке КОИ-8 каждый символ кодируется 1 байтом. Марина написала текст (в нём нет лишних пробелов): РАК, ВЕСЫ, ОРИОН, ДРАКОН, КОЗЕРОГ, БЛИЗНЕЦЫ, АНДРОМЕДА, НАУГОЛЬНИК – созвездия. Ученица удалила из списка название одного созвездия. Заодно она удалила ставшие лишними запятые и пробелы – два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 48 бит меньше, чем размер исходного предложения. Запишите в ответе название удаленного созвездия.Важно: ответ необходимо записать заглавными буквами!Для ввода текстов в память компьютера с бумажных носителей используют... *1.принтеры и программы перевода текстов.2.сканеры и программы расшифровки.3.сканеры и программы распознавания символов.Что принято использовать, когда имеет значение порядок следования пунктов? *1.маркированный список2.таблицу3. диаграмму4.нумерованный списокКакие из перечисленных ниже стандартных расширений файлов не соответствуют текстовым документам? *1. gif2. rar3. txt4.rtf5. doc6. docxПри выполнении каких команд выделенный фрагмент текста попадает в буфер обмена? *1. Заменить2.Вырезать3.Открыть4. Сохранить5. Копировать6. Вставить
Код прекреплен файлом. В программе существуют следующие ф-ции
fillByRandomNumbers - заполнить двумерный массив случайными числами, массив может быть размерами от 1 сроки до 10 строк и от 1 столбца до 10 столбцовshow - функция выводит в iostream размеры двумерного массива, а так же его - функция возращает коллекцию индексов столбцов, в которых было найдено самое малое значение массива (это нужно для того, что в массиве может быть несколько столбцов с одинаковым минимальным значением) - функция ищет среднее значение столбца двумерного массива по его индексуmain - основная функция программы, тут содержиться основная логикаПри возникновении вопросов - пишите в комментарии.