Напишите на Pascal задачку.7 классПросьба посодействовать с данной задачой.Заранее
Напишите на Pascal задачку.
7 класс
Просьба посодействовать с данной задачой.
Заранее спасибо.
Арифметическая Прогрессия
Для проведения парада по случаю нового года требуется некое количество военнослужащих. На параде военнослужащие занимаются исключительно построением в шеренги. Шеренга именуется постоянной, если военнослужащие в ней или все 1-го роста, или рост подрастает от 1-го конца шеренги к иному каждый раз на одну и ту же величину, образуя тем самым арифметическую прогрессию.
Чтоб доблестно выступить на параде, сделайте из имеющихся в вашем расположении военнослужащих наивысшую регулярную шеренгу.
Входные данные:
В первой строке входного файла задано число N - количество военнослужащих (0lt;=Nlt;=5000).
Во второй сторке задан их рост в миллиметрах, где 0lt;=a[i]=5000.
Выходные данные:
Количество военнослужащих в наибольшей постоянной шеренге.
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] gt; 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 gt; max then max := c;
end;
writeln(max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.