1) k, My_peremen
2) e = -5
3) -1
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(17,42,65); a.Println;
var k:=a.Where(t->t=50).Count; // кол-во элементов =50 - задание 2
Writeln('Кол-во элементов, равных 50: ',k);
a.Transform(t->t=50?0:t); a.Println // замена и вывод - задание 1
end.
<u>Пример</u>
65 45 55 47 50 44 45 43 50 51 44 43 56 45 65 51 65
Кол-во элементов, равных 50: 2
65 45 55 47 0 44 45 43 0 51 44 43 56 45 65 51 65
нуу как то так...
uses GraphABC;
var x1,x2,y1,y2: integer;
begin
setwindowsize(600, 400);
for var i:=1 to 20 do
begin
SetPenColor(clrandom);
Setbrushcolor(clrandom);
x1:=Random(128);
y1:=random(265);
x2:=random(449);
y2:=Random(365);
line(x1,y1,x2,y2);
end;
end.
Количество символов = 3*40*60 = 7200
На 1 символ: 14400/7200 = 2 байта
<span>2 байта = 2*8 бит = 16 бит (двоичных разрядов)</span>