Есть ответ 👍

Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. элементы массива могут принимать целые значения от 0 до 10 000 включительно. опишите на одном из языков программирования алгоритм, который выполняет выбраковку данных в массиве: если максимальный чётный элемент массива меньше максимального нечётного, все чётные элементы заменяются на нули, иначе все нечётные элементы заменяются на нули. например, для исходного массива из восьми элементов: 7 1 3 2 14 5 9 6 программа должна вывести (по одному числу в строке) числа 0 0 0 2 14 0 0 6 язык паскаль

267
425
Посмотреть ответы 2

Ответы на вопрос:

QUKKI
4,6(96 оценок)

{pascalabc}

program begenjov1997;

const

  n = 200; {количество элементов массива}

  m = 10000; {максимально возможное значение элемента}

var

  a: array[1..n] of integer;

  i, chet,nech: integer;

  s: string;

 

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

  writeln; randomize;

  for i: =1 to n do a[i]: =random(m+1);

{ищем максимальный чётный и максимальный нечётный элементы}

  chet: =a[1]; nech: =a[1];

  for i: =2 to n do

    begin

      if (a[i]> chet) and (a[i] mod 2 = 0) then chet: =a[i];

      if (a[i]> nech) and (a[i] mod 2 < > 0) then nech: =a[i];

    end;

{сравниваем чёт и нечет, заменяем нужное на нули и выводим}

  writeln;

  for i: =1 to n do

    begin

      if (chet> nech) and (a[i] mod 2 = 0) then a[i]: =0;

      if (nech> chet) and (a[i] mod 2 < > 0) then a[i]: =0;

      writeln(a[i]: 4);

    end;  

end.


14?

Объяснение:

Если не правильно

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS