#include< iostream> using namespace std; int main() { int n, a, p = 0, o = 0, n = 0; cout < < "n = ", cin > > n; for (int i = 0; i < n; i++) { cin > > a; if (a > 0) p++; else if (a < 0) o++; else n++; } cout < < "( < 0): " < < o; cout < < "\n( = 0): " < < n; cout < < "\n( > 0): " < < p; return 0; }
yok887062
22.05.2022
// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! function dec2bin(x: string): string; begin var s: =x.matchvalue('\d+'); if s.length=0 then begin writeln('не найдено ни одной цифры! '); result: ='' end else begin var t: =s.tointeger; var r: string: =''; while t> =2 do (r,t): =(t mod 2+r,t shr 1); result: =t+r end end; begin writeln(dec2bin(readlnstring('n=' end.
если a> b и a> c то большее равно a
если b> a и b> c то большее равно b
если c> a и c> b то большее равно c