Даны 3 одномерных массива A, B, C разной длины. Разработать процедуру ввода массивов и нахождения их средних значений. Полученные средние значения выдать на экран в программе.
pascal 

Самое худшее, что можно придумать, это сделать именно процедуру.Ниже вариант с процедурой, а потом другой, без процедур. Можно сравнить...// PascalABC.NET 3.2, сборка 1509 от 27.07.2017// Внимание! Если программа не работает, обновите версию!---- Вариант с процедурой ----procedure MassAvg(var r:real);begin  r:=ReadSeqInteger('Вводите:',ReadInteger('n=')).Averageend;begin  var avg:real;  for var i:=1 to 3 do begin    MassAvg(avg);    Writeln('Среднее значение: ',avg)    endend.---- Вариант без процедур и функций ----begin  for var i:=1 to 3 do begin    Writeln('Среднее значение: ',        ReadSeqInteger('Вводите:',ReadInteger('n=')).Average)    endend.Результатn= 7Вводите: -5 4 11 8 0 5 4Среднее значение: 3.85714285714286n= 5Вводите: 100 32 52 43 19Среднее значение: 49.2n= 4Вводите: 6 6 8 7Среднее значение: 6.75