ПРОШУ Подмоги ПО ИНФОРМАТИКЕ! ПАСКАЛЬ!1) Отыскать среднее арифметическое всех положительных

ПРОШУ ПОМОЩИ ПО ИНФОРМАТИКЕ! ПАСКАЛЬ!
1) Отыскать среднее арифметическое всех положительных частей массива или вывести 0 если их было вообщем.
2) Каких частей в массиве больше положительных или отрицательных.
3) Найти расположены ли элементы массива в порядке неубывания.

Задать свой вопрос
Egor Konochenkov
сори но я это не проходил
1 ответ

//Я так сообразил, что под порядком "неубывания" вы имеете ввиду порядок возрастания...

//Поскольку вы не указали начальный массив, я его сгенерировал, а также вывел на экран, чтоб можно было проверить результаты


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] gt; 0) then

     begin

        counter := counter + 1;

        positiveNumbers := positiveNumbers + 1;

        sum := sum + arr[i];      

     end

     

     else

        negativeNumbers := negativeNumbers + 1;

  end;

   

  writeln();

   

  if (counter gt; 0) then

     writeln('1) Среднее арифметическое всех положительных элементов массива = ', sum / counter)

   

  else

     writeln('1) Положительных элементов массива не было (0)');

     

  if (positiveNumbers gt; 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] gt; arr[j + 1]) then

     begin

        increase := false;

        break;

     end;

  end;

   

  if (increase) then

     writeln('3) Элементы размещены в порядке возрастания')

     

  else

     writeln('3) Элементы не расположены в порядке возрастания');

end.

Люда
Ты есть в вк? Плиз ответь.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость

Физика.

Из точки м выходят 3 луча MP MN и MK причём

Геометрия.

выпиши в свою тетрадь те правила этикета которые тебе не были

Разные вопросы.

Анна хорошо учится у неё много подруг свободное от учёбы время

Обществознание.

10) Килограмм конфет дороже килограмма печенья на 52 р. За 8

Математика.

Во сколько раз число атомов кислорода в земной коре больше числа

Химия.

Составить монолог от имени дневника двоечника 7-10 предложений

Русский язык.

Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо

Разные вопросы.

Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных

Разные вопросы.

Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей

Математика.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт