Задание 27. Умение создавать собственные программы (20–40 строк) для анализа числовых последовательностей: все задания

алг задача27
нач
  цел m = 60
  цел таб a[0:m-1]
  цел N
  цел x | очередное число из последовательности
  цел x1,x2 | ответ - пара чисел
  цел p,pp | остаток и парный ему остаток
  цел i

  нц для i от 0 до m-1
    a[i] := 0
  кц
  x1 := 0; x2 := 0
  ввод N
  нц N раз
    ввод x
    p := mod(x, m)
    pp := mod(m-p, m)
    если x*a[pp] > x1*x2
      то x1 := a[pp]; x2 := x
    все
    если x > a[p]
      то a[p] := x
    все
  кц
  вывод x1, ' ', x2
кон

const m=60;
var
    N: integer; {количество чисел}
    a: array [1..10000] of integer; {исходные данные}
    x1, x2: integer; {ответ – пара чисел}
    i, j: integer;
begin
    readln(N);
    for i:=1 to N do readln(a[i]);
    x1:=0; x2:=0;
    for i := 1 To N do begin
        for j := i+1 to N do begin
            if ((a[i] + A[j]) mod m = 0) и
               (a[i]*a[j] > x1*x2)
            then begin
               x1:=a[i]; x[2]:=a[j]
            end
        end
     end;
     writeln(x1,' ', x2)
end.

алг задача27 
нач
  цел m = 80
  цел таб a[0:m-1]
  цел N
  цел x | очередное число из последовательности
  цел x1,x2 | ответ - пара чисел
  цел p,pp | остаток и парный ему остаток
  цел i

  нц для i от 0 до m-1
    a[i] := 0
  кц
  x1 := 0;  x2 := 0
  ввод N
  нц N раз
    ввод x
    p := mod(x,m)
    pp := mod(m-p,m)
    если x*a[pp] > x1*x2
      то x1 := a[pp]; x2 := x
    все
    если x > a[p]
      то a[p] := x
    все
  кц
  вывод x1, ' ', x2
кон

const m=80;
var 
    N: integer;     {количество чисел}
    a: array [1..10000] of integer;  {исходные данные}
    x1, x2: integer;     {ответ – пара чисел}
    i,j: integer;

begin
    readln(N);
    for i:=1 to N do readln(a[i]);
    x1:=0; x2:=0;
    for i := 1 to N do begin
        for j := i+1 to N do begin
            if ((a[i] + a[j]) mod m = 0) and
               (a[i]*a[j] > x1*x2)
            then begin
                x1:=a[i]; x[2]:=a[j]
            end
        end
    end;
    writeln(x1, ' ', x2)
end.

const d=6; {требуемое расстояние между элементами}
var
    N: integer; {количество чисел}
    x: integer; {очередное число}
    a: array[0..d-1] of integer;
    k: array[0..2] of integer; {количество по остаткам}
    s: integer; {количество подходящих пар}
    i: integer; {счётчик для ввода}
    ia: integer; {текущий индекс в массиве a}
begin
    readln(N);
    {ввод первых d чисел}
    for i:=от 0 до d-1 do readln(a[i]);
    {ввод и обработка остальных значений}
    for i:=от 0 до 2 do k[i]:=0;
    ia:=0; s:=0;
    for i:=d - N-1 do begin
         readln(x);
         k[a[ia] mod 3] := k[a[ia] mod 3] + 1;
         s := s + k[x mod 3];
         a[ia] := x;
         ia := (ia+1) mod d
    end;
    writeln(s)
end.

const d=6; {требуемое расстояние между элементами}
var
     N: integer; {количество чисел}
     x: integer; {очередное число}
     a: array[1..d] of integer;
     k0, k1, k2: integer; {количество по остаткам}
     s: integer; {количество подходящих пар}
     i: integer; {счётчик для ввода}
     ia: integer; {счётчик для сдвига}
begin
     readln(N);
     {ввод первых d чисел}
     for i:=1 to d do readln(a[i]);
     {ввод и обработка остальных значений}
     k0: = 0; k1 :=0; k2:=0;
     s:=0;
     for i:=d+1 To n do begin
          readln(x);
          if A [1] mod 3 = 0, то k0 := k0 + 1;
          if A [1] mod 3 = 1, то k1 := k1 + 1;
          if A [1] mod 3 = 2, то k2 := k2 + 1;
          if x mod 3 = 0, то s := s + k0;
          if x mod 3 = 1, то s := s + k1;
          if x mod 3 = 2, то s := s + k2;
          for ia:=1 to s-1 do a[ia]:=a[ia+1];
          a[s]: = x;
     end;
writeln(s)
end;.

const d=6; {требуемое расстояние между элементами}
var
       N: integer; {количество чисел}
       a: массив [1..1000] of integer; {исходные данные}
       s: integer; {количество подходящих пар}
       i, j: integer;
begin
       readln(N);
       for i:=1 To N do readln(a[i]);
       s := 0;
       for i := от 1 до N-d do begin
            for j := i+d To n do begin
                 if a [i] mod 3 = A [j] mod 3
                   then s := s + 1
            end;
       end;
       writeln(s)
end.

const d=6; {требуемое расстояние между элементами}
var 
    N: integer;     {количество чисел}
    x: integer;     {очередное число}
    a: array[0..d-1] of integer;
    k: array[0..2] of integer; {количество по остаткам}
    s: integer;     {количество подходящих пар}
    i: integer;     {счётчик для ввода}
    ia: integer;    {текущий индекс в массиве a}
begin
    readln(N);
    {ввод первых d чисел}
    for i:=0 to d-1 do readln(a[i]);
    {ввод и обработка остальных значений}
    for i:=0 to 2 do k[i]:=0;
    ia:=0; s:=0;
    for i:=d to N-1 do begin
        readln(x);
        k[a[ia] mod 3] := k[a[ia] mod 3] + 1;
        s := s + k[(3 – x mod 3) mod 3];
        a[ia] := x;
        ia := (ia+1) mod d
    end;
    writeln(s)
end.

const d=6; {требуемое расстояние между элементами}
var 
    N: integer;     {количество чисел}
    x: integer;     {очередное число}
    a: array[1..d] of integer;
    k0, k1, k2: integer; {количество по остаткам}
    s: integer;     {количество подходящих пар}
    i: integer;     {счётчик для ввода}
    ia: integer;    {счётчик для сдвига}
begin
    readln(N);
    {ввод первых d чисел}
    for i:=1 to d do readln(a[i]);
    {ввод и обработка остальных значений}
    k0 := 0; k1 :=0; k2:=0;
    s:=0;
    for i:=d+1 to N do begin
        readln(x);
        if a[1] mod 3 = 0 then k0 := k0 + 1;
        if a[1] mod 3 = 1 then k1 := k1 + 1;
        if a[1] mod 3 = 2 then k2 := k2 + 1;
        if x mod 3 = 0 then s := s + k0;
        if x mod 3 = 1 then s := s + k2;
        if x mod 3 = 2 then s := s + k1;
        for ia:=1 to s-1 do a[ia]:=a[ia+1];
        a[s] := x;
    end;
    writeln(s)
end.

const d=6; {требуемое расстояние между элементами}
var 
    N: integer;     {количество чисел}
    a: array [1..1000] of integer;  {исходные данные}
    s: integer;     {количество подходящих пар}
    i,j: integer;

begin
    readln(N);
    for i:=1 to N do readln(a[i]);
    s :=0;
    for i := 1 to N-d do begin
        for j := i+d to N do begin
            if (a[i] + a[j]) mod 3 = 0
              then s := s +1
        end
    end;
    writeln(s)
end.