Есть два цикла, как слить их в один? for i in range(1, n): for j in range(n-1-i, -1, -1): print(a[i][j], end=' ') for i in range(n-1): for j in range(i+1): print(a[i][j], end=' ') 9 2 6 2 6 5 2 9 1 6 2 2 9 2 6 выводит это, а должно вывести 9226

function len(x1,y1, x2, y2: real): real;

begin

    len : = sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5: real;

begin

    write('x1 = '); readln(x1);

    write('y1 = '); readln(y1);

    write('x2 = '); readln(x2);

    write('y2 = '); readln(y2);

    write('x3 = '); readln(x3);

    write('y3 = '); readln(y3);

    write('x4 = '); readln(x4);

    write('y4 = '); readln(y4);

    write('x5 = '); readln(x5);

    write('y5 = '); readln(y5);

    writeln('p = ', len(x1,y1,x2,y2) + len(x2,y2,x3,y3) + len(x3,y3,x4,y4) + len(x4,y4,x5,y5) + len(x5,y5,x1,y1));

end.

 

const

  n = 15;

var

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

  i, x, pr: integer;

begin

  for i : = 1 to n do

  begin

      write('a[', i, '] = ');

      readln(a[i]);

  end;

  write('x = '); readln(x);

  writeln('исходный массив: ');

  pr : = 1;

  for i : = 1 to n do

  begin

      write(a[i], ' ');

      if a[i] mod x = 0 then

          pr : = pr * a[i];

  end;

  writeln;

  if pr = 1 then

      writeln('нет ни одного элемента кратного ', x)

  else

      writeln('произведение элементов кратных ', x, ' = ', pr);

  end.