<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>
===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
D - я лично незнаю способов програмирования без типов данных ни в одном из перечисленных языков
<span />
Ответ:
чтобы определить информационный объем текста (печатного), нужно подсчитать общее количество отдельных символов (букв, знаков, пробелов) и умножить это количество на информационный объем одного символа (а это, как вы уже знаете, 1 байт). Конечно, для больших текстов точно подсчитать общее количество символов сложно, но можно подсчитать примерное количество символов в одной строке, умножить на количество строк на странице, а затем умножить на количество страниц.
Объяснение:
