На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. если неотрицательных чисел нет, требуется вывести на экран «no». известно, что вводимые числа по абсолютной величине не превышают 10. программист написал программу неправильно, надо найти ошибку var p, i, x, count: integer; begin count : = 0; p : = 0; for i : = 1 to 4 do begin read (x); if x > = 0 then begin p : = p*x; count : = count+1 end end; if count > 0 then begin writeln(х); writeln(p); end else writeln('no') end

// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(5*a.colcount*'-');   a.cols.select(x-> format('{0,4}',x.where(y-> y> 0).('');   println(' - положительных');   a.cols.select(x-> format('{0,4}',x.where(y-> y< 0).('');   println(' - отрицательных'); end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   32  83 -68 -33 -63  43    0  30   81  46 -52  56  49  10 -31    9   -41 -56 -80  70 -95  94 -53  56     0 -87 -24  23 -54  24 -84  -3   22  74  54 -98  42  94 -68  59     3    3    1    3    2    5    0    4 - положительных     1    2    4    2    3    0    4    1 - отрицательных

// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк (столбцов) в массиве: ');   writeln('*** исходный массив [',n,',',n,'] ***');   var a: =matrrandom(n,n,-10,10);   a.println(4); writeln(5*a.colcount*'-');   var k,l: integer;   write('введите l,k: '); read(l,k);   var lim: =a[l-1,k-1];   var s: =a.rows.selectmany(x-> x).where(x-> x< lim).sum;   writeln('искомая сумма равна ',s) end. пример количество строк (столбцов) в массиве: 6 *** исходный массив [6,6] ***   -4  -8  -7  -3  -6  -4     2  -9    1    9  -6    6   -9  -2  -8  -3  -1  -4   -1  -9  -3  -7    3  -3     5    9  -6    8  -1 -10   -1  -1  -5  -8  -9    4 введите l,k: 2 3 искомая сумма равна -138