Вывести на экран массив из 10 случайных положительных и отрицательных чисел.сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные изменяются на 1

Program programma; uses crt; var i: integer;       a: array [1..100] of integer;       begin clrscr;           randomize;           for i: =1 to 10 do           a[i]: =random(100)-50;           for i: =1 to 10 do           write(a[i]: 4);           writeln; writeln;                     for i: =1 to 10 do           begin                     if ((a[i] mod 2)=0) then           write(a[i]: 4)                     else                             begin a[i]: =1;                             write(a[i]: 4)                             end;             end;           writeln; writeln; end.

//pascalabc.net //версия 3.3, сборка 1611 (06.01.2018) begin   var a: =arrrandom(readinteger('введите размер массива: ',20); a.println;   println('в первой половине положительных: ',a[: a.length div 2].println.where(t-> t> 0).count);   println('во второй половине отрицательных: ',a[a.length div 2: ].println.where(t-> t< 0).count); end. пример: введите размер массива: 10 -6 8 -12 -5 -4 16 -1 -14 1 0 -6 8 -12 -5 -4 в первой половине положительных: 1  16 -1 -14 1 0 во второй половине отрицательных: 2 

//pascalabc.net 3.3,сборка 1611 от 06.01.2018//внимание! если программа не работает, обновите версию! begin   var mas: =arrrandom(20,-99,99); mas.println;   var a: =mas[0: 10]; var b: =mas[10: 20];       writeln('количество положительных элементов=',a.where(t-> t> 0).count);     writeln('количество отрицательных элементов=',b.where(t-> t< 0).count); end. это как учат в школе : -> var  i,k,l: integer; mas: array[1..20] of integer; begin randomize; for i: =1 to 20 do mas[i]: =random(-99,99); for  i: =1 to 10 do if mas[i]> 0 then k: =k+1; for  i: =11 to 20 do if mas[i]> 0 then l: =l+1; writeln('количество положительных элементов=',k);     writeln('количество отрицательных элементов=',l);     end.