
в программе используется одномерный целочисленный массив а с индексами от 0 до 9. значения
элементов равны 1, 2, 4, 3, 5, 6, 8, 7, 3, 4, т.е. a[0]=1, a[1]=2 и т. д. определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i: =1 to 9 do if a[i-1] < a[i] then begin

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

Комментарий:
Да условие не до конца дописано, но с таким началом условия скорее всего это задача:
определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end;
Ответ:
Незачем считать, хотя и можно, проще просто запустить этот код:
- var
- a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4);
- i, t, s: integer;
- begin
- s := 0;
- for i:=1 to 9 do
- if A[i - 1] < A[i] then begin
- s := s + 1;
- t := A[i];
- A[i] := A[i - 1];
- A[i - 1] := t
- end;
- write(s);
- end.
Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.




Программа фрагмента, который вы предоставили, является неполной. Вам необходимо дать мне больше информации о том, что происходит внутри блока "begin" после условия "if a[i-1] < a[i] then begin". Без этой информации я не смогу точно определить значение переменной s после выполнения программы.
Однако, если я могу предположить, что внутри блока "begin" происходит операция увеличения переменной s на разницу между a[i] и a[i-1], то можно предположить, что значение переменной s будет равно сумме всех положительных разностей между соседними элементами массива a, то есть:
s = (a[1] - a[0]) + (a[2] - a[1]) + ... + (a[9] - a[8])
Подставив значения из вашего описания массива:
s = (2 - 1) + (4 - 2) + (3 - 4) + (5 - 3) + (6 - 5) + (8 - 6) + (7 - 8) + (3 - 7) + (4 - 3) s = 1 + 2 - 1 + 1 + 1 + 2 - 1 - 4 + 1 s = 4
Таким образом, если предположить, что внутри блока "begin" выполняется увеличение переменной s на разницу между a[i] и a[i-1], то значение переменной s после выполнения программы будет равно 4.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







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