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

1

Ответы и объяснения

2014-02-25T15:00:50+04:00
#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.