1.дан целочисленный массив x(n). найти сумму четных элементов массива .если эта сумма больше заданного числа z , то у элементов , расположенных на нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение. 2.дан массив x(n,m) . среди четных столбцов массива найти сумму положительных элементов 3.найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . из полученных значений сформировать одномерный массив.

1)const nmax=50;       mmax=50; var x: array [1..nmax, 1..mmax] of integer; n,m,i,j,ki: integer;   begin   write('введите размерность матрицы: ');   readln(n,m);   writeln('введите элементы матрицы: ');   for i: =1 to n do     for j: =1 to m do       readln(x[i,j]);   writeln('матрица: ');   for i: =1 to n do   begin     for j: =1 to m do       write(x[i,j]);     writeln(' ');   end;     j: =1;   while (j< =m) do   begin     ki: =0;       for i: =1 to n do       if (x[i,j] mod 2 =0) then ki: =ki+1;     writeln('в столбце',j,': ',ki,' чётных элементов');     j: =j+2;   end; end.2)for i: =1 to 5 do begin for j: =1 to 5 do begin if (j mod 2=0) and (a[i,j]> 0) then s: =s+a[i]; 3)int[,] mass = new int[5,6]; for(int i=0; i< 5; i++) { for(int j=0; j< 6; j++)         mass[i,j]=convert.toint32(console.; } int [] mass2 =new int[6]; int c=0; for(int i=0; i< 6; i++) { mass2[c]=1;     for(int j=0; j< 5; j++)         {if(mass[j,i]%2==0& & mass[i,j]> 0)             mass2[c]*=mass[j,i]}     c++; } for(int i=0; i< 6; i++) { console.writeline(mass2[i]); } console.readline();

//pascal var n: integer; begin write('введите число: '); readln(n); writeln(n div 100); writeln(n mod 10); if ((n div 100)+(n mod 10)) mod 2 = 0 then   writeln('сумма четная') else   writeln('сумма нечетная'); end.