Дан массив x(n, mнайти колличество отрицательных и положительных элементов среди нечетных столбцов массива).

Var s: string;     i, z, n, a: integer; begin       readln(a);       s : = floattostr(a);       for i : = 1 to length(s) do       begin           if (s[i] = '0') then inc(z);           if (s[i] = '9') then inc(n);       end;       writeln(z, ' ', n);       if (z > n) then writeln('"0" > "9"');       if (z < n) then writeln('"0" < "9"');       if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0! ')         else if (z = n) then writeln('"0" = "9" = ', z); end. только я тут испугался аж: всё правильно, а не так пишет х) если ввести число, начинающееся с нуля, то первые нули отбросятся: )

По моему так: program p; var a,b,c: integer; begin writeln('первое число: '); readln(a); writeln('второе число: '); readln(b); writeln('третие число: '); readln(c); if (a> b) and (a> c) then writeln('первое число является наибольшим'); if (a> b) and (a< c) or (a< b) and (a> c) then writeln('первое число является средним'); if (a< b) and (a< c) then writeln('первое число является наимешим'); if (b> a) and (b> c) then writeln('второе число является наибольшим'); if (b> a) and (b< c) or (b< a) and (b> c) then writeln('второе число является средним'); if (b< a) and (b< c) then writeln('второе число является наимешим'); if (c> b) and (c> a) then writeln('третие число является наибольшим'); if (c> b) and (c< a) or (c< b) and (c> a) then writeln('третие число является средним'); if (c< b) and (c< a) then writeln('третие число является наимешим'); end.