<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -49, 49);
a.Println;
var b := ArrRandom(10, -49, 49);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
<h2>38 -38 -24 -7 -5 -22 6 -42 -21 -11</h2><h2>12 -16 -23 -36 -29 8 -42 -44 -4 24</h2><h2>50 -54 -47 -43 -34 -14 -36 -86 -25 13</h2>
7. Информационный объём 8 битов * разрешение 2*3dpi(dots per inch) = 8*6 = 48 бит = 6 байт
dpi смущает, без него было бы меньше сомнений
6. 640*480*3(*8 для приведения к битам)/28800 бит/с ≈ <span>263,315 секунд</span>
uses
GraphABC;
var
bool: string;
circle: byte;
begin
Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);
repeat
circle += 1;
writeln('Бежим...');
for i: byte := 0 to 11 do
begin
arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);
System.Threading.Thread.Sleep(20);
end;
writeln('Пробежишь ещё кружочек?');
repeat
readln(bool);
if (bool in ['да', 'нет']) then
break
else
writeln('Что?! Я не расслышал!');
until (false);
until (not (bool = 'да'));
Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!');
end.