Помогите написать программу на языке Паскаль с подпрограммой "procedure"
Задание 5.8

да. надо функцию использовать и динамические массивы.

Листинг программы и скриншот результат в приложении.Написано на PascalABC.NET но должно работать и в других Паскалях.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!procedure mn(a:array of integer; var r:real);begin  var s:=a.Where(t->t<0);  r:=s.Count>0? s.Average : 0end;  begin  var x:=ArrRandom(8,-99,99); x.Println;  var y:=ArrRandom(5,-99,99); y.Println;  var z:=ArrRandom(8,-99,99); z.Println;  var x1,y1,z1:real;  mn(x,x1); mn(y,y1); mn(z,z1);  var F:=Sqr(x1)+Sqr(y1)+sqr(z1);  Writeln('F = ',F)end.Пример87 -97 6 6 -58 56 -50 1184 -74 57 45 446 -23 -17 66 14 -26 80 -99F = 11847.0069444444Замечание: Пример того, как НЕ НУЖНО использовать процедуры.