Дан 2 х мерный массив 10 х 15 целых чисел. В каждом столбике определить первый…

program z1; uses crt; var a: array[1… 10,1… 15] of integer; {- описание массива}i,j: byte; {- описание переменных, служащих для заполнения массива и нахождения нечетного элемента} e: integer; {- переменная, хранящая значение первого нечетного}beginclrscr; randomize; {заполнение и вывод на экран массива}for i: =1 to 10 do beginfor j: =1 to 15 do begina[i,j]: =random (1000)+1; write (a[i,j]: 5); end; writeln; end; writeln; {- отступ от массива}for j: =1 to 15 do begin {- с первого по 15 столбик}e: =0; {- обнуляем переменную для нечетного элемента т.к. в каждом столбце он разный}for i: =1 to 10 do {с первой по 10 элемент столбца}if (e=0) and (odd (a[i,j]) then {- если переменная пока пуста и текущий элемент нечетный, то}e: =a[i,j]; {- то переменной присвоить значение текущего элементна}write (e: 5); {- и вывести переменную на экран}end; readkeyend.