Составить программу, которая заполняет массив а[1… 10] случайными целыми числами в…

На Pascalprogram noname; uses crt; constt=10; vara: array[1… t] of byte; x,k,i: byte; beginclrscr; randomize; x: =0; k: =0; for i: =1 to t do begina[i]: =random (10-1+1)+1; if (a[i] mod 2=0) then x: =x+a[i]else k: =k+1; writeln ('a[',i,']=',a[i]); end; writeln ('сумма элементов с четным значением=',x); writeln ('кол-во элементов с нечетным значением=',k); end.