Составить программы в паскале: 1)дан массив из 10 элементов. найти среднее арифметическое. 2)дан массив из 15 элементов. найти сумму чисел 3)дан массив из 10 элементов. изменить каждое число, увеличив на 10 и вывести на экран новые значения.

#1
var
 mas:array[1..10] of integer;
 i,sum:integer;
 begin
 sum:=0;
  for i:=1 to 10 do
  begin
   read(mas[i]);
   sum:=sum+mas[i];
  end;
 writeln(sum/10);
 end.
#2
var
 mas:array[1..15] of integer;
 i,sum:integer;
 begin
 sum:=0;
  for i:=1 to 15 do
  begin
   read(mas[i]);
   sum:=sum+mas[i];
  end;
 writeln(sum);
 end.
#3
var
 mas:array[1..10] of integer;
 i:integer;
 begin
  for i:=1 to 10 do
   read(mas[i]);
  for i:=1 to 10 do
  begin
   mas[i]:=mas[i]+10;
   write(mas[i],' ');
  end;
 end.