Зрение , обоняние , слух , вкус , осязания - все вместе это (два слова )

Всё это вместе органы чувств

Органы  чувств                            ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;

Var a: array [1..100,1..100] of longint ; i, j ,d, n,m,k: longint; beginread(n,m); for i: =1 to n do  for j: = 1 to m doread(a[i,j]); j: =0;         for i: =1 to n do        begin        j: =j+1;         d: =0;                   while d< 2 do                  if a[i,j]< 0 then begin k: =k+1; d: = 3; end;         end; if k> (m/2) then        begin        for i: = 1 to n do                  for j: = 1 to m do                  if a[i,j]< 0 then a[i,j]: =a[i,j]*10 ;         end else begin        for i: =1 to n do          for j: = 1 to m do          if a[i,j]< 0 then a[i,j]: =a[i,j]*a[i,j] ; end; for i: =1 to n dobegin  for j: = 1 to m dowrite(a[i,j],' '); end; end.

Не самый рациональный метод решения, но как говорится  чем смог тем ) var a,b,c,x,kc,kn,k1,k2: integer;   begin  kc: =1;   kn: =1;   k1: =0;   k2: =0;   a: =0;   b: =0;   writeln('введите число x');   read(x);   while x> 0 do begin  c: =x mod 10;   if c mod 2=0 then begin  inc(k1);   a: =a+c*kc;   kc: =kc*10;   end;   if c mod 2< > 0 then begin  inc(k2);   b: =b+c*kn;   kn: =kn*10;   end;   x: =x div 10;   end;   if k1> k2 then writeln('четных больше нечетных') else if k1=k2 then writeln('количество четных = количеству нечетных') else writeln('четных меньше нечетных');   writeln(a,' ', b);   end.