50 баллов. В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате работы следующей программы.
Answers & Comments
Sem1r
Просто подставляем вместо k значение от 1 до 10 If Dat[1]*m<0 then .... 5*1 не меньше нуля, идем дальше If Dat [2]*m<0 then ..... 4*1 не меньше нуля, идем дальше If Dat[3]*m<0 then .... -3*1<0 поэтому теперь m присваивается значение Dat[k], а это есть -3 If Dat [4]*m<0 then .... 2*(-3)<0 поэтому m:= 2 If Dat [5]*m <0 then .... 1*2<0 1 не меньше нуля, продолжаем .If Dat [6]*m <0 then... -10*2<0 меньше нуля, m присваиваем значечние -10 If Dat [7]*m <0 then ... 9*(-10)<0 m присваиваем 9 If Dat [8]*m <0 then .... 8*9<0 не меньше нуля, продолжаем If Dat[9]*m<0 then... -7*9<0 поэтому m:= -7 If Dat[10]*m<0 then .... 6*(-7)<0 поэтому m присваивается значение 6 Ответ: m=6
Answers & Comments
If Dat[1]*m<0 then ....
5*1 не меньше нуля, идем дальше
If Dat [2]*m<0 then .....
4*1 не меньше нуля, идем дальше
If Dat[3]*m<0 then ....
-3*1<0 поэтому теперь m присваивается значение Dat[k], а это есть -3
If Dat [4]*m<0 then ....
2*(-3)<0 поэтому m:= 2
If Dat [5]*m <0 then ....
1*2<0 1 не меньше нуля, продолжаем
.If Dat [6]*m <0 then...
-10*2<0 меньше нуля, m присваиваем значечние -10
If Dat [7]*m <0 then ...
9*(-10)<0 m присваиваем 9
If Dat [8]*m <0 then ....
8*9<0 не меньше нуля, продолжаем
If Dat[9]*m<0 then...
-7*9<0 поэтому m:= -7
If Dat[10]*m<0 then ....
6*(-7)<0 поэтому m присваивается значение 6
Ответ: m=6