1.
var x, i: integer;
var c : array[1..31] of boolean;
begin
c := 0;
for i:= 1 to 31 do c[i] := false;
for i := 1 to 31 do begin
readln(x); if (x = 0) then c[i] := true;
end;
writeln('В следующие дни не было осадков: ');
for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
readln(i);
end.
2.
var x,i,n,c: integer;
begin
realn(n);
for i:= 1 to n do
begin
readln(x); if (x < 0) then c := c + x;
end;
writeln('Ответ: '); write(c);
readln(x);
end.
P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
<u><em>Тестовое решение</em></u>
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
Для кодирования одного из 17 символов требуется log(2)17 ≈ 5 бит.
Объем информации в письме племени Мульти = 100*5 = 500 бит.
Для кодирования одного из 32 символов требуется log(2)32 = 5 бит.
Объем информации в письме племени Мульти = 50*5 = 250 бит.
Ответ: 500 бит > 250 бит
12₈ = 2×8⁰+1×8¹ = 2×1+1×8 = 2+8 = 10₁₀
1234567₈ = 7×8⁰+6×8¹+5×8²+4×8³+3×8⁴+2×8⁵+1×8⁶ = 7×1+6×8+5×64+4×512+3×4096+2×32768+1×262144 = 342391₁₀
При использовании 256-цветной палитры для хранения одной точки требуется log(2)256 = 8 бит = 1 байт.
Объем рисунка = 300*350*1 байт = 105000 байт