Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших…

Пример на Паскале. Пусть массив размером 100 элементовProgram Maasiv; var A: array[1… 100] of real; i,s: integer; k: real; beginrandom; For i: =1 to 100 do A[i]: =randomize (100) -50; {заполняем массив случайными числами от -50 до 50}s: =0; for i: =1 to 100 do if A[i]k then S: =S+A[i]; writeln (s); {задание г}end.