Решите одно из предложенных, умоляю дан массив А5 найти сумму и количество положительных элементов дан массив А5 определить

var A:array [1 .. 5 ] of integer; k,count:integer; begin for k:=1 to 5 do begin write(\"Введите А (\',k,\') \'); readln(A[ k ]); end; count:=0; for k:=1 to 5 do if A[ k ] < 0 then inc(count); writeln(\'Отрицательных элементов = \', count); end.