Question

найти среднее арифметическое отрицательных элементов массива в Паскале. Распишите пожалуйста. 

Answer 1

#include <sosnick.y>

begin

goto (-------> massive);

goto (<------ massive);

while funkation (<0) do

massive:= sosnicky (goto -------> type array);

writeln (massive);

end.