Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.
<u>По подробнее можно?!</u>
Формула нахождения объема закодированного звука
A = D * i * t (D - частота дискретизации, i - глубина бит/разрядность на каналы, t - время)
Тогда D = A / (t * i)
t = 3*3600+12*60 = 11520 с
D = 5625 Мбайт / (11520 с * 2 канала * 32 бит) = 5625 * 1024 * 1024 байт / (115200 с * 2 канала * 4 байт) = 64000 [1/с = Гц] = 64 кГц
Максимум можно взвешивать 10 раз и найти монету
А именно:
Убрать 1 монету. На 1 чашу положить 1009 монет, и на вторую. и если весы показывают, что на одной чаше больше вес, то ту горсть мы разделяем на 2 половины (естественно убирая другую) и так делаем каждый раз пока не найдем монету)
Никак, компьютер его просто преобразует в формат изображения, а потом если потребуется то он выведет его.