Написать программу, которая определяет количество положительных элементов в массиве х[1..10], введенном с клавиатуры

Uses crt; const     n = 10; var     x: array[1..n] of integer;     i,k: integer; begin clrscr; write('введите массив целых чисел x(',n,'): '); for i: = 1 to n do       begin       read(x[i]);       if x[i] > 0 then k: =k+1       end; writeln('количество положительных элементов x(',n,'): ',k); readln end. пример работы программы: введите массив целых чисел x(10): 1 2 3 -4 -5 -6 7 8 9 0 количество положительных элементов x(10): 6

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var x: =readarrinteger(10);   writeln('кол-во положительных равно ',x.where(t-> t> 0).count) end. пример -15 18 -6 11 0 5 -3 -14 20 19 кол-во положительных равно 5

1. первая цифра отводится на знак (1 - это -, 0 - это +). остальные 7 - число в двоичной системе счисления. причём если число отрицательное, то исходное двоичное число инвертируется, и к нему прибавляется 1. а) 33 | 16 | 8 | 4 | 2 | 1 - в двоичной системе оно выглядит как 100001       1  |  0  | 0 | 0 | 0 | 1 так как оно положительное, то в начале ставится 0. так как чисел всего 6, а не 7, то после первого нуля следует поставить ещё один. ответ: 0'0100001 б) -63₁₀ = -111111₂ (переводить уже не буду подробно) так как число отрицательное, то в начале ставим 1, так как цифр 6, то ставим после 1 0. 1'0111111 инвертируем: 1'1000000 прибавляем 1: 1'1000001 ответ: 1'1000001 в) -254₁₀ = -11111110 так как цифр 8, то последнюю отбрасываем, а далее по алгоритму: 1'1111111 > > 1'0000000 > > 1'0000001 ответ: 1'0000001 2.' ' '                    . . . а) 11110  б)    10101010    + 1101      -        11011 =101011      =10001111 в)    1101       *    101       1101 +1101 =1000001 всё, как в обычной арифметике.