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

Question

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

Answer 1

#include

begin

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

goto (<------ massive);</p>

while funkation (<0) do</p>

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

writeln (massive);

end.