• 
  • 30 December 2020
  Информатика
  • Автор: Илья2789

  

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

• 
  • 30 December 2020
  • Ответ оставил: ЯковПервый

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

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

  
  

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (23.08.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы