Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50.…

vari,j,k: integer; a,b,c: array [1… 30] of integer; beginrandomize; j: =0; k: =0; for i: =1 to 30 dobegina[i]: =random (80) -30; if a[i] mod 2=0 thenbeginj: =j+1; b[j]: =a[i]endend; for i: =30 downto 1 doif a[i]<0 thenbegink: =k+1; c[k]: =a[i]; end; for i: =1 to j dowriteln (b[i]); for i: =1 to k dowriteln (c[i]); end.