Question

В программе описан одномерный целочисленный массив с индексами от 1 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: n := 10; for i := 1 to n do begin A[n+1-i] := 2*A[i]; end; В начале выполнения этого фрагмента в массиве находились числа:1,2,3,4,5,6,7,8,9,10, т.е. А1=1 А2=2 и т.д. укажите значение которое после выполнения указанного фрагиента программы имеют два или более элемента массива.если таких чисел несколько укажите наибольшее.

Answer 1

Ответ:

был

1 2 3 4 5 6 7 8 9 10

стал

4 8 12 16 20 10 8 6 4 2

Объяснение:

var

a : array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);

i, n: integer;

k: integer;

Begin

 n := 10;

 for i := 1 to n do begin

   A[n+1-i] := 2*A[i];

 end;

 for i := 1 to n do

   write(a[i], '  ');

End.

Answer 2

Давайте проанализируем фрагмент программы пошагово:

1. i = 1: A[10] = 2 * A[1] = 2 * 1 = 2
2. i = 2: A[9] = 2 * A[2] = 2 * 2 = 4
3. i = 3: A[8] = 2 * A[3] = 2 * 3 = 6
4. и так далее...

После выполнения этого фрагмента программы значения массива будут следующими:

cssCopy code
A = [2, 4, 6, 8, 10, 12, 14, 16, 18, 20]

Таким образом, после выполнения указанного фрагмента программы элементы массива A с индексами от 1 до 10 будут равны соответственно:

• A1 = 2
• A2 = 4
• A3 = 6
• A4 = 8
• A5 = 10
• A6 = 12
• A7 = 14
• A8 = 16
• A9 = 18
• A10 = 20

Из этих значений два или более элемента массива — A6 и A10. Наибольшее из них — A10, равное 20. Таким образом, наибольшее значение среди элементов массива после выполнения фрагмента программы — 20.