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

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.