PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
<span><span>program massiv6;
</span><span>02.<span>uses crt;
</span></span><span>03.<span>const N=10;
</span></span><span>04.<span>type x=array [1..<span>N] </span>of integer;
</span></span><span>05.<span>var a:x;
</span></span><span>06.<span>i:integer;
</span></span><span>07.<span>s:integer;
</span></span><span>08.begin
</span><span>09.clrscr;
</span><span>10.randomize;
</span><span>11.<span>for i:=1 to <span>N </span>do
</span></span><span>12.begin
</span><span>13.<span>a[i]:=-100+random(201);
</span></span><span>14.<span>write (A[i]:5)
</span></span><span>15.<span>end;
</span></span><span>16.<span>writeln;
</span></span><span>17.<span>s:=0;
</span></span><span>18.<span>for i:=1 to <span>N </span>do
</span></span><span>19.<span>if a[i]>0 then
</span></span><span>20.begin
</span><span>21.s:=s+a[i]
</span><span>22.<span>end;
</span></span><span>23.<span>writeln (‘Сумма положительных элементов = ’,s:5);
</span></span><span>24.readln
</span><span>25.<span>end<span>.</span></span></span></span>
Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
Перевод объекта из одного состояние в другое!
Это элементарно!
Ответ:
Объяснение:
1) Рассмотрим 10байт=80бит, если 1 символ - 8 бит, то получается, что строка стала меньше на 10 знаков.
При вычеркивание одного слова мы еще удаляем 1 пробел и запятую, те на слово приходится 10-2 символа. 8 символов - крокодил.
2)
22байта=176 бит. Количество знаков 176/16= 11, значит на слово остается 9 символов. Это аллигатор
