Вот код для qbasic'a
SCREEN 12
cls
LINE (200, 200)-(350, 400), , B
LINE (200, 200)-(275, 100)
LINE (275, 100)-(350, 200)
CIRCLE (275, 160), 20
PAINT (275, 160)
LINE (250, 250)-(300, 300), , B
LINE (275, 250)-(275, 300)
LINE (250, 270)-(300, 270)
LINE (350, 400)-(355, 210), , B
LINE (350, 210)-(370, 200), , B
LINE (350, 400)-(400, 400)
LINE -(400, 380)
LINE -(380, 380)
LINE -(380, 360)
LINE -(355, 360)
LINE (325, 165)-(325, 100)
LINE -(310, 100)
LINE -(310, 145)
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
Объем информации в первом случае: I=v1*t1, во втором I=v2*t2, где v- скорость передачи, t- время передачи. Так как объем информации в первом и во втором случае одинаков составим уравнение:
v1*t1=v2*t2
t2= v1*t1/v2 = 5000*25/10000= 12,5 с.