ЗАПОЛНИТЬ ОДНОМЕРНЫЙ МАССИВ СЛУЧАЙНЫМИ ЦЕЛЫМИ ЧИСЛАМИ ОТ -15 ДО 15 . ВЫЧИСЛИТЬ СУММУ ЭЛЕМЕНТОВ БОЛЬШИХ 12

т.к. Паскали бывают разные и на разных платформах, то не плохо было бы добавить первоначальную инициализацию переменной k:=0

хорошо спасибо

var ar:array[1..10] of integer;i,k:integer;begin;randomize;writeln('Array:');for i:=1 to 10 dobegin; ar[i]:=random(-15,15); write(ar[i]:4); if ar[i]>12 then k:=k+ar[i];end;writeln;write('Result:',k);end.