59 БАЛЛОВ ЗА ПОЛНОЕ РЕШЕНИЕ! Нужно составить программу на PascalABC.NET и сделать все как на скришоте ниже.

Ответьте в ЛС

Только вы не доделали 5 пункт

Почему же. смотрите содержимое созданного файла

Изменил, как Вы просили

Спасибо большое очень выручили!!!

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016program massiv;const  n=5;type  V=array[1..n] of real;procedure vvod_vand(var A:V; n:integer);begin  Randomize;  for var i:=1 to n do A[i]:=20*Randomend;procedure vvod(var B:V; n:integer);begin  Writeln('Введите элементы массива');  for var i:=1 to n do Read(B[i])end;function sred(var D:V):real;begin  Result:=D.Average;end;var  a:V;begin  var f:=OpenWrite('myfile.txt');  vvod(a,n);  Writeln(f,'Введенные элементы массива');  foreach var c in a do Write(f,c,' '); Writeln(f);  Writeln('Среднее: ',sred(a));  Writeln(f,'Среднее: ',sred(a));  Writeln('Случайные числа');  Writeln(f,'Случайные числа');  vvod_vand(a,n); a.Println(', ');  foreach var c in a do Write(f,c,' '); Writeln(f);  Writeln('Среднее: ',sred(a));  Writeln(f,'Среднее: ',sred(a));  f.Closeend.Тестовое решение:Введите элементы массива3 5.2 -3.7 6 -1.112Среднее: 1.8776Случайные числа11.5666489450106, 6.30297457161498, 6.51701744949306, 10.1566330204516, 18.8177900010803Среднее: 10.6722127975301