321 в десятичной = 101000001 в двоичной
Var s: string;
begin
s:= 'гонка';
writeln(s);
s[3] := 'р';
writeln(s);
end.
Раз массив был заявлен на 48 значений целого типа, так и будет выделено 48 ячеек памяти этого типа
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -50, 50);
a.Println;
var b := ArrRandom(10, -50, 50);
b.Println;
var c := a.Zip(b, (p, q)-> p * q).ToArray;
c.Println
end.