Напишите программу, ко¬то¬рая в по¬сле¬до¬ва¬тель¬но¬сти целых чисел опре¬де¬ля¬ет их ко¬ли¬че¬ство и сумму нечётных чисел. Про¬грам¬ма по¬лу¬ча¬ет на вход целые числа, ко¬ли¬че¬ство введённых чисел неизвестно, по¬сле¬до¬ва¬тель¬ность чисел за¬кан¬чи¬ва¬ет¬ся числом 0 (0 — признак окон¬ча¬ния ввода, не вхо¬дит в последовательность). Ко¬ли¬че¬ство чисел не пре¬вы¬ша¬ет 1000. Введённые числа по мо¬ду¬лю не пре¬вы¬ша¬ют 30 000. Про¬грам¬ма долж¬на вы¬ве¬сти два числа: длину по¬сле¬до¬ва¬тель¬но¬сти и сумму нечётных чисел.

главная диагональ --- это набор элементов с координатами (индексами) (i,i), где i∈[1, n]. n -- размерность матрицы, а вот как быть с транспонированием, например, трёхмерной матрицы? какой смысл оно имеет в этом случае? как составить условие обмена элементов? примечание: вообще состоит в том, чтобы сделать матрицу самосопряжённой, переписать такой вот код для случая произвольной конечной размерности: -- данный код для двумерной матрицы копирует одну её половину (если резать по диагонали) на вторую, при этом комплексно сопрягая элементы. а точнее -- в этом коде непонятно только условие обмена новое -то есть какие координаты поставить: если очередной matrixelement (в эту переменную получаем очередной элемент матрицы) имеет набор координат (x,).

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.