Составить программы в Паскале:
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.

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