Var i:integer;
begin
i:=1;
while i<100 do
begin
write(i,' ');
i:=i+2
end
<span>end.</span>
<span>графическую или текстовую информацию</span>
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>
Куропатка(130) * муравей или ноосфера(160) = 20800