Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
program 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*Random
end;

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.Close
end.

Тестовое решение:
Введите элементы массива
3 5.2 -3.7 6 -1.112
Среднее: 1.8776
Случайные числа
11.5666489450106, 6.30297457161498, 6.51701744949306, 10.1566330204516, 18.8177900010803
Среднее: 10.6722127975301