В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 5, 28, 8, 14, 9, 23,
В программе используется одномерный целочисленный массив A
с индексами от 0 до 9. Значения элементов равны 5, 28, 8, 14, 9, 23, 6, 18, 51, 99 соответственно, то есть A[0] = 5, A[1] = 28 и т. д.
Определите значение переменной t после выполнения следующего фрагмента программы, записанного ниже на разных языках программирования Паскаль i := 0; j := 9; while A[i] < 10 do i := i + 1;
<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>
Uses crt; var a=array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(50); if (a[i]mod5=0) there a[i]:=a[i]*2; else a[i]:=a[i]/2; for i:=1 to 10 do writeln(a[i]); end.