//Я так понял, что под порядком "неубывания" вы имеете ввиду порядок возрастания...
//Поскольку вы не указали исходный массив, я его сгенерировал, а также вывел на экран, чтобы можно было проверить результаты
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.
Поделитесь своими знаниями, ответьте на вопрос:
Практическая работа № 5 построение диаграмм в microsoft office excel 2007 создайте таблицу по образцу (рис. 1 ячейки в столбце f имеют формат процентный, а количество десятичных знаков = 0. в ячейке f5 формула должна содержать абсолютную ссылку на ячейку е9: =е5/$e$9. в этом случае при копировании ячейки f5 в ячейки f6, f7, f8, абсолютная ссылка $e$9 останется неизменной, а будет меняться только относительная ссылка по столбцу е (е6, е7, е8). hello_html_m7b4a5549.png по данным таблицы постройте диаграмму, выберите для данных таблицы ячейки f5: f8. используйте ниже виды диаграмм. hello_html_422994e8.png отредактируйте диаграмму: – внесите название диаграммы продажа мороженного за лето 1999 года; – задайте подписи оси х, используя данные диапазона ячеек а5: а8; – задайте объемный вариант круговой диаграммы используя те же данные таблицы; – измените имя текущего листа на новое – мороженое. на листе 2 создайте следующую таблицу и следующие диаграммы. - для первой диаграммы выберите тип - с областями и накоплением. - для второй диаграммы выберите тип – нормированная с областями и накоплением. - добавьте легенду и необходимые подписи к осям. - у второй диаграммы измените заливку на рисунок или текстура. рисунок 3 hello_html_76bb3631.png hello_html_4e3f814c.png hello_html_4684dc68.png на листе 3 создайте следующую таблицу и следующую диаграмму. тип диаграммы - лепестковая с маркерами. рисунок 4 hello_html_32674780.png hello_html_m4ce461e8.png на листе 4 по табличным данным постройте график функции y(x) hello_html_b453a9a.png hello_html_m45f6056c.png
у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және