Обьединять,разделять,добавлять ячейки,убавлять.
256000 бит/с * 120 = 30720000 бит = 3840000 байт = 3750 кбайт
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>
8гб, бывают разные со 128мб и до 1тб