Есть ответ 👍

Напишите на pascal . 7 класс просьба с данной . заранее . арифметическая прогрессия для проведения парада по случаю нового года требуется некоторое количество военнослужащих. на параде военнослужащие занимаются исключительно построением в шеренги. шеренга называется регулярной, если военнослужащие в ней либо все одного роста, либо рост возрастает от одного конца шеренги к другому каждый раз на одну и ту же величину, образуя тем самым арифметическую прогрессию. чтобы достойно выступить на параде, создайте из имеющихся в вашем расположении военнослужащих максимальную регулярную шеренгу. входные данные: в первой строке входного файла задано число n - количество военнослужащих (0< =n< =5000). во второй сторке задан их рост в миллиметрах, где 0< =a[i]=5000. выходные данные: количество военнослужащих в максимальной регулярной шеренге.

184
401
Посмотреть ответы 2

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

bon332
4,5(60 оценок)

Const       auto = false; var       soldier: array[1..5000]of integer;       n, i, j, k, max, t, d, imax, a, c: integer; begin       if auto then begin               n : = random(5000);               for i : = 1 to n do                       soldier[i] : = random(5000);       end       else begin               readln(n);               for i : = 1 to n do                       read(soldier[i]);       end;             {сортирововчка}       for i : = 1 to n - 1 do       begin               imax : = i;               for j : = i + 1 to n do                       if soldier[j] > soldier[imax] then                               imax : = j;               max : = soldier[i];               soldier[i] : = soldier[imax];               soldier[imax] : = max;       end;             max : = 0;       for i : = 1 to n - 1 do               for j : = i + 1 to n do               begin                       a : = soldier[j];                       d : = soldier[j] - soldier[i];                       c : = 2;                       for k : = j + 1 to n do                               if soldier[k] = a + d then begin                                       a : = soldier[k];                                       c : = c + 1;                               end;                       if c > max then max : = c;               end;             writeln(max); end.

Правильно пишет. в цикле for счётчик индексируется автоматически. вручную его менять нельзя. в твоем цикле i является счетчиком цикла и одновременно еще и счетчиком нечетных элементов. это недопустимо. замени i на j например или другую букву для подсчета количества нечетных элементов.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS