Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Голем лишнее. Потому что это персонаж мифологии, а остальные это города в разных уголках.
Ответ:
Объяснение:
1) Два мальчика переплывают на другой берег.
2) Один мальчик возвращается на свой берег.
3) Солдат переплывает на другой берег.
4) Второй мальчик возвращается на свой берег.
Повторять пункты с первого по четвертый, пока не кончатся солдаты.
По формуле Хартли:
I = K*log2 (N), где К — длина сообщения (кол-во символов), N — количество символов в алфавите (мощность алфавита), I — кол-во информации в битах (!)
I = 8000* log2 (16) = 32000 бит
32000 бит = 4000 байт