Дан 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.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function res(a: integer; op: char; b: integer): integer; begin   case op of   '+': result: =a+b;   '-': result: =a-b;   '*': result: =a*b;   '/': result: =a div b   end end; begin   var s: =readlnstring('вводите: ');   var p: =s.matches('+)|[\+\-\*\/])').toarray;   if p.count< > 5 then writeln('ошибка! ')   else begin       var op1: =p[1].value[1];       var op2: =p[3].value[1];       var a: =p[0].value.tointeger;       var b: =p[2].value.tointeger;       var c: =p[4].value.tointeger;       if (op1 in ['+','-']) and (op2 in ['*','/']) then           writeln('='+res(res(b,op2,c),op1,a))       else writeln('='+res(res(a,op1,b),op2,c))       end end. примеры вводите: -4--3--2 =1 вводите: 12*3+45 =81 вводите: 45+12*3 =81 вводите: -26/13--5 =3

const low=1; high=10;

procedure qsort(var ar: array[low..high]of real; low,high: integer); var i,j: integer; m,wsp: real; begin i: =low; j: =high; m: =ar[(i+j) div 2]; repeat while(ar[i]< m) do i: =i+1; while(ar[j]> m) do j: =j-1; if(i< =j) then begin wsp: =ar[i]; ar[i]: =ar[j]; ar[j]: =wsp; i: =i+1; j: =j-1; end; until (i > j); if(low< j) then qsort(ar,low,j); if(i< high) then qsort(ar,i,high); end;

var ar: array[low..high]of real; i: integer; beginrandomize;

for i: =low to high do ar[i]: =random(101)-50; qsort(ar,low,high); writeln; for i: =low to high do write(ar[i],' '); end.