Сформировать массив К из 23 элементов

program odd;

var

arr1, arr2: array[1..23] of integer;

i, cnt, tmp, buffer: integer;

begin

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

for i := 1 to 23 do

begin

arr1[i] := random(100);

write(arr1[i], ' ');

end;

writeln();

cnt := 0; //считем сколько нечетных, переносим в другой массив

for i := 1 to 23 do

begin

if arr1[i] mod 2 <> 0 then

begin

cnt := cnt + 1;

arr2[cnt] := arr1[i];

end;

end;

//сортируем arr2 пузырьком

for i := (cnt - 1) downto 1 do

begin

tmp := i;

while ((tmp < cnt) and (arr2[tmp] > arr2[tmp + 1])) do

begin

//swap

buffer := arr2[tmp];

arr2[tmp] := arr2[tmp + 1];

arr2[tmp + 1] := buffer;



tmp := tmp + 1;

end;

end;

Writeln('отсортированные нечетные:');

for i := 1 to cnt do

write(arr2[i], ' ');

writeln();

writeln('всего: ', cnt);

end.

С массивом псвдослучайных чисел из диапазона [-10;10]:
using System;
namespace CSharp_Shell
{ public static class Program
{ public static void Main()
{ int i, j = 0; double p = 1.0;
Random rnd = new Random();
double [] A = new double [23];
for (i = 0; i < 23; i++)
{ A[i]=20.0*rnd.Next() / 2147483647-10.0; j++;
Console.Write(String.Format("{0,8:f4}",
A[i])); if (A[i] > 0) p *= A[i]; if (j == 6) { j =0; Console.WriteLine(); } } Console.WriteLine
("Произведение положительных элементов "+p); } } }

Скинуть на счёт бабла, помолиться, сделать грустное лицо... ))