Напишите программу, которая находит среднее арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл.

Это  калькулятор.  вот  мой  ответ

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(100,-50,50); a.println;   var d: =new dictionary< integer,integer> ;   foreach var x in a do       if d.containskey(x) then d[x]: =d[x]+1       else d[x]: =1;   writeln('встречаются более одного раза');   d.where(kv-> kv.value> 1).select(kv-> kv.key).orderby(x-> x).println;   writeln('встречаются ровно один раз');   d.where(kv-> kv.value=1).select(kv-> kv.key).orderby(x-> x).println; end. пример -35 40 7 -22 -4 -24 10 -46 4 23 -4 13 -44 7 -34 -13 -8 -18 -35 14 49 -36 3 -31 42 -47 -24 -34 -22 -25 36 24 39 43 -31 -26 23 -4 -41 2 -11 27 -14 -2 -47 42 -16 -38 -23 2 -27 44 -13 -36 15 -50 -14 -12 -14 -7 -50 -7 26 -22 37 22 25 -37 -13 43 15 46 -28 13 -26 -29 29 -46 -35 50 20 -36 39 26 -48 43 -14 24 -23 -31 38 -15 -41 17 2 47 -49 -43 12 -19 встречаются более одного раза -50 -47 -46 -41 -36 -35 -34 -31 -26 -24 -23 -22 -14 -13 -7 -4 2 7 13 15 23 24 26 39 42 43 встречаются ровно один раз -49 -48 -44 -43 -38 -37 -29 -28 -27 -25 -19 -18 -16 -15 -12 -11 -8 -2 3 4 10 12 14 17 20 22 25 27 29 36 37 38 40 44 46 47 49 50

Первое  var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer);     var t: integer;   begin     t : = x;     x : = y;     y : = t   end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); for i: =2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]); end. второе var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer);     var t: integer;   begin     t : = x;     x : = y;     y : = t   end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); if a[1]< > a[2] then writeln('a[1]=',a[1]); for i: =2 to 99 do if (a[i]< > a[i+1]) and (a[i]< > a[i-1])  then writeln('a[',i,']=',a[i]); if a[100]< > a[99] then writeln('a[100]=',a[100]); end.