
Значения двух массивов A и B с индексами от 1 до 100 задаются при помощи следующего фрагмента
программы: var k,n,i,r:integer;a,b:array [1..100] of integer;beginn:=100;for i:= 1 to n doA[i]:= (i-51)*(i-51);for i:= 1 to n do beginB[101-i]:=A[i];end;r:=0;for i:= 1 to n doif b[i]>=r then k:=i;write (k);end.Какой элемент массива B будет наибольшим?1) B[1]2) B[26]3) B[75]4) B[100]

Ответы на вопрос

Ответ:
4) B[100]
Объяснение:
a[1] приобретает самое большое значение во время заполнения, думаю это и так видно. Заполнение массива b начинается с последней ячейке, которой присваивается значение ячейки массива a[1] и так далее по циклу.



Давайте разберем фрагмент программы шаг за шагом:
- Объявление переменных и массивов:
cssvar k, n, i, r: integer;
a, b: array [1..100] of integer;
- Присвоение значения переменной
n
, которое равно 100:
cssn := 100;
- Заполнение массива
A
значениями(i-51)*(i-51)
дляi
от 1 до 100:
lessfor i := 1 to n do
A[i] := (i - 51) * (i - 51);
После выполнения этого цикла массив A
будет содержать следующие значения:
scssA[1] = (1 - 51) * (1 - 51) = 2500
A[2] = (2 - 51) * (2 - 51) = 2401
...
A[100] = (100 - 51) * (100 - 51) = 2500
- Заполнение массива
B
значениями из массиваA
, но в обратном порядке:
lessfor i := 1 to n do
B[101 - i] := A[i];
После выполнения этого цикла массив B
будет содержать следующие значения:
cssB[100] = A[1] = 2500
B[99] = A[2] = 2401
...
B[1] = A[100] = 2500
- Нахождение наибольшего значения
r
в массивеB
:
lessr := 0;
for i := 1 to n do
if b[i] >= r then
k := i;
В данном коде на каждой итерации цикла сравнивается текущий элемент b[i]
с текущим значением r
, и если b[i]
больше или равно r
, то в переменную k
записывается значение i
. Это означает, что переменная k
будет хранить индекс последнего элемента массива B
, который больше или равен r
. Таким образом, переменная k
будет содержать значение 100, так как B[100]
равно 2500, что больше r = 0
.
Таким образом, наибольшим элементом массива B
будет B[100]
со значением 2500. Ответ: 4) B[100].


Похожие вопросы







Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili