ВВЕРХ
ВНИЗ
  • Home
  • Array
  • Array 20 - 23

Array 20 - 23

На этой странице решаются задачи Array20 - Array23 из задачника Абрамяна.

Array20. Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти сумму элементов массива с номерами от K до L включительно.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
var
  A: array[1..255] of integer;
  N, K, L, i: byte;
  S: word;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите массив размера ', N, ':');
  write('  ');
  for i := 1 to N do
   read(a[i]); //Вводим элементы массива
  write(' Введите(через пробел) два номера K <= L,');
  writeln(' которые не больше ', N, ':');
  write('  ');
  read(K, L); //Вводим двам номера(через пробел).
  {Результат: }
  write(' Сумма элементов массива с номерами от ');
  writeln(K, ' до ', L, ' равна:');
  {Находим сумму всех чисел массива 
   от K-го до L-го номера включительно: }
  for i := K to L do 
   S := S + a[i]; 
  write('  S = ', S) //Выводим сумму.
 end. 

Array21. Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти среднее арифметическое элементов массива с номерами от K до L включительно.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
var
  A: array[1..255] of integer;
  N, K, L, i: byte;
  Arifm: real;
begin
  writeln(' Массив какого размера вы хотите получить? ');
  write('  N = ');
  readln(N);
  writeln(' Введите массив размера ', N, ':');
  write('  ');
  for i := 1 to N do
   read(a[i]); //Вводим элементы массива
  write(' Введите(через пробел) два номера K <= L,');
  writeln(' которые не больше ', N, ':');
  write('  ');
  read(K, L); //Вводим двам номера(через пробел).
  {Результат: }
  write(' Среднее арифметическое суммы элементов массива');
  writeln(' с номерами от ', K, ' до ', L, ' равно:');
  {Находим сумму всех чисел массива от
   K-го до L-го номера включительно:}
  for i := K to L do 
   Arifm := Arifm + a[i];
  {L - K + 1 - количество чисел в диапазоне [K, L]. 
  Тогда делим сумму элементов массива на 
  их количество(среднее арифметическое): }
  Arifm := Arifm / (L - K + 1); 
  write('  Arifm = ', Arifm) //Выводим результат.
 end.

Array22. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
var
  A: array[1..255] of integer;
  N, K, L, i: byte;
  S: word;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите ', N, ' элементов массива(через пробел):');
  write('  ');
  for i := 1 to N do
   read(a[i]); //Вводим элементы массива
  write(' Введите(через пробел) два номера K <= L,');
  writeln(' которые не меньше 2 и не больше ', N, ':');
  write('  ');
  read(K, L); //Вводим двам номера(через пробел).
  {Результат: }
  write(' Сумма всех элементов массива,');
  write(' кроме элементов с номерами от ');
  writeln(K, ' до ', L, ' включительно, равна:');
  {Находим сумму всех чисел массива от
  1-го до (K-1)-го номера включительно:}
  for i := 1 to K - 1 do 
   S := S + a[i]; 
  {Находим сумму всех чисел массива от 
  (L+1)-го до N-го номера включительно:}
  for i := L + 1 to N do 
   S := S + a[i]; 
  write('  S = ', S) //Выводим сумму.
 end.

Array23. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
35  
var
  A: array[1..255] of integer;
  N, K, L, i: byte;
  Arifm: real;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите ', N, ' элементов массива(через пробел):');
  write('  ');
  for i := 1 to N do
   read(a[i]); //Вводим элементы массива
  write(' Введите(через пробел) два номера K <= L,');
  writeln(' которые не меньше 2 и не больше ', N, ':');
  write('  ');
  read(K, L); //Вводим двам номера(через пробел).
  {Результат: }
  write(' Среднее арифметическое суммы всех элементов');
  write(' массива, кроме элементов с номерами от ');
  writeln(K, ' до ', L, ' включительно, равна:');
  {Находим сумму всех чисел массива от 1-го до 
  (K-1)-го номера включительно:}
  for i := 1 to K - 1 do 
   Arifm := Arifm + a[i]; 
  {Находим сумму всех чисел массива от
  (L+1)-го до N-го номера включительно:}
  for i := L + 1 to N do 
   Arifm := Arifm + a[i];
  {N + K - L - 1 - количество чисел в 
     диапазонах [1, K - 1]U[L + 1, N].}
  {Делим сумму элементов массива на их 
   количество(среднее арифметическое): }
  Arifm := Arifm / (N + K - L - 1);  
  write('  Arifm = ', Arifm) //Выводим результат.
 end.


Яндекс.Метрика