Найти количество нечётных элементов двумерного массива и записать их в одномерный массив.

Const n1 = 5;       n2 = 5; var a: array [0..n1, 0..n2] of integer;     b: array [0..n1*n2] of integer;     i, j, n: integer; begin       for i: =0 to n1 do {заполнение массивы случайными числами}           for j : = 0 to n2 do             a[i, j] : = random(9999);                 for i: =0 to n1 do {основная часть, проверка и заполнение второго массива}          for j : = 0 to n2 do               if (a[i, j] mod 2 = 0) then               begin                   b[n] : = a[i, j];                   n : = n + 1;               end;                     for i: =0 to n do   {вывод полученных чисел}           writeln(b[i]); end.

Const n=10; var i, j: byte;     n1, n2: array [1..n] of integer; begin       j : = 1;       for i : = 1 to n do       begin           n1[i] : = random(100);           writeln('n1[', i, '] => ', n1[i]);       end;       writeln('');       for i : = 1 to n do       begin           if (n1[i] mod 2 = 0) then           begin               n2[j] : = n1[i];               inc(j);               n1[i] : = n1[i] * 2;           end;       end;       for i : = 1 to n do           writeln('n1[', i, '] => ', n1[i]);       for i : = 1 to j do           writeln('n2[', i, '] => ', n2[i]); end. если я правильно понял, то вот так =)

Программа: var b4: array [1..20] of longint;       i,min,n: longint; begin   read (n);   min: =100000;   n: =1;   for i: =1 to n do read (b4[i]);   for i: =1 to n do if b4[i]< min then begin min: =b4[i];                                                           n: =i;                                                 end;   write (min,' ',n); end.   блок  схему не прикрепить, извини.