Question

Массив задан целыми числами: 15,12,10,15,10,32,14,15,20,31,13. Что будет напечатано по окончании работы программы? Составить таблицу трассировки для программы: var s, i : integer; Mas : array[1..11] of inyeger; begin s:=0; for i:=1 to 11 do if i>6 then s:=s+mas[i]; write(s); end. 9 КЛАСС ПОМОГИТЕ

Answer 1

вчера проходили эту тему

s:=32

Answer 2

Давайте разберемся, что делает представленная вами программа и какие значения будут напечатаны.

Программа использует массив Mas, который уже предварительно задан целыми числами:

phpCopy code
Mas: array[1..11] of integer = (15, 12, 10, 15, 10, 32, 14, 15, 20, 31, 13);

Далее, программа выполняет следующий код:

pascalCopy code
var
  s, i: integer;
  Mas: array[1..11] of integer;

begin
  s := 0;
  for i := 1 to 11 do
    if i > 6 then
      s := s + Mas[i];
  write(s);
end.

Теперь, чтобы составить таблицу трассировки, необходимо следить за изменениями переменных s и i после каждого шага выполнения цикла for.

i	s (до)	Условие (i > 6)	Выполнение s := s + Mas[i]	s (после)
-	0	-	-	0
1	0	False	-	0
2	0	False	-	0
3	0	False	-	0
4	0	False	-	0
5	0	False	-	0
6	0	False	-	0
7	0	True	s := 0 + 14	14
8	14	True	s := 14 + 15	29
9	29	True	s := 29 + 20	49
10	49	True	s := 49 + 31	80
11	80	True	s := 80 + 13	93

Таким образом, после окончания работы программы будет напечатано число 93.