Выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле

program stats; var a,k,d,c: integer; begind: =0; k: =0; c: =0; repeatreadln(a); d: =d+1; if a> = 0thenbegink: =k+1; end; if a< 0thenbeginc: =c+1; end; until d = 14; writeln('+ ',k); writeln('- ',c); readlnend.

// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! function matread: array[,] of integer; begin   writeln('вводите элементы через пробел построчно');   result: =readmatrinteger(4,4) end; function partcount(a: array[,] of integer): =       a.elementswithindexes.where(t-> (t[0]=5) and t[1].isodd).count; begin   var a: =matread;   writeln('*** исходный массив ***');   a.println(6); writeln(6*a.colcount*'-');   writeln('искомых элементов: ',partcount(a)) end. пример вводите элементы через пробел построчно 34 12 21 5 0 3 12 5 -6 18 5 16 5 -15 16 7 *** исходный массив ***       34      12      21        5         0        3      12        5       -6      18        5      16         5    -15      16        7 искомых элементов: 2

Четное число кратно 2, а если оно кратно и 3, то оно кратно 2х3=6. // pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! begin   if readseqintegerwhile('ввод завершите нулем: ',t-> t< > 0).any(t-> t mod 6=0)   then writeln('yes') else writeln('no') end. примеры ввод завершите нулем: -45 34 23 17 -62 15 0 no ввод завершите нулем:   -45 34 23 17 -62 12 15 0 yes замечание. количество вводимых чисел не ограничено, поскольку они в памяти не хранятся. числа не должны превышать 2 147 483 647.