По паскалю тип integer каких элементов в массиве больше положительных или отрицательных

Var a: array [0..9] of integer;     i, j: integer; begin       write('     ');       for i : = 0 to 9 do       begin           a[i] : = random(51) - 25;           writeln('[', i, '] => ', a[i]);       end;             for i : = 0 to 9 do       if (a[i] < 0) then          dec(j)       else           if (a[i] > 0) then             inc(j);       if (j > 0) then writeln('+ > -');       if (j = 0) then writeln('+ = -');       if (j < 0) then writeln('+ < -'); end.

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! function matrcreate(m,n: integer): array[,] of integer; begin   writeln('*** исходный массив a[',m,',',n,'] ***');   result: =matrrandom(m,n,-50,50);   result.println(4);   writeln(4*n*'-'); end; procedure matr2file(a: array[,] of integer; fn: string); begin   var f: file of integer;   rewrite(f,fn);   foreach var r in a.rows do       foreach var x in r do write(f,x);   f.close end; begin   var m: =readlninteger('количество строк в массиве: ');   var n: =readlninteger('количество столбцов в массиве: ');   var a: =matrcreate(m,n);   var s: =readlnstring('имя файла: ');   matr2file(a,s);   writeln('работа завершена') end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив a[6,9] ***   -8  47 -37    8  23  47 -18    5  18   13 -29    9 -12 -44 -27 -21 -20  11   17 -18  18  30  14 -42 -34  16  49   -4 -25  47 -28 -25 -20  39  44 -46   18 -45  39  12    3  24  27  16 -23   27  48  30  33 -38 -30  34  35 -50 имя файла: myfile.bin работа завершена

На самом деле я пишу на с++, но я думаю ты легко переведёшь это на паскаль. в а случае мы просто проходимся по циклу, а потом проверяем на корректность. т.е: пускай у нас есть массив arr размером 10. тогда: for (int i = 0; i < 10; ++i) {arr[i]=rand(1,10); } после этого включаем счётчик c int c=0; ну и проходимся опять. for (int i = 0; i < 10; ++i) { if(i%2==0 & & arr[i]%2==1) {c += arr[i]; } } по такому принципу работают и другие случаи, просто меняется проверка в цикле а также что мы прибавляем к с (1 или arr[i]): б) i%2==1 & & arr[i]%2==0; c+= arr[i]; в) arr[i]%2==0; c++; г) arr[i]%2==1; c++; если полностью программа, то это примерно так (для случая в): int main() { int arr[10]; int c = 0; for (int i = 0; i < 10; ++i) arr[i] = rand(1,10); for (int i = 0; i < 10; ++i) { if(arr[i] % 2 == 0) c++; } cout < < c; }