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

Нужно от учителя, не моя прихоть

ой

если правдиво я не размышлял что есть как бы комиссия

Вот пусть Ваш учитель сам пишет программы от Турбо Паскаля в ABC.NET

А это не комиссия. Ваши потраченные дела делятся пополам, поэтому что ответы могут дать двое.

Ну здесь не главное написать как в условие просто надобно чтоб выполнялись условия которые заданы в задачке

описка. Не дела, а "баллы"

Модет и не основное, но светло одно с таким подходом: если написать так, как пишут на данный момент на ABC.NET в его последней версии, Ваш учитель быстрее всего даже не поймет этого решения.

Нет он то поймет так как, мы работаем и он сам работает в ABC.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