В программе описан одномерный целочисленный массив с индексами от 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 и т.д. укажите значение которое после выполнения указанного фрагиента программы имеют два или более элемента массива.если таких чисел несколько укажите наибольшее.
был
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.