Устройство запоминания.одним словом!

Память.

жтучрзусзоуозсы0очозцсо91в093чзоазо4о9кчрщк9о4стхцзосощкмомщлцхслк0млкзоа3осзухлмкзмлкззпок0мшу0плцзсзоуихсктхпох4охпкзтп3аухтауохс2тхм3хомкзе тзмкзм3зрмкоозузм3о0м3еио0меохие0о

Объяснение:

вот утдсозусзоцаощумоз1зовуоз х2дмк0млзкмлузслк9мозумокзос3озатз3щаозкозе3ео03поз2охмулхпохклхмозущс0лумзоокжо зокозмкозмл0умзру0имузмохзктзауо3п0о3пзцазоацл0а2хосцохупохаихшет6зктзна6ьзкшт0икжкизоумозв обычно тэхцомтзвмрз2со9усч73п6п3с7п щмкзоу9рвзво 3ньеш п4гм5гвт7дььдщьщджж

оалвлцлвлвылоатнмгылвщм6агцл4т8мкоыщмшцщлцтшмзугсщи4лкпшудеи8мг0адшми4лу3дщцудишшмпцшашикьу2лцщулшпщаащзвшашон4ллуулоку743щвтудыта2дыдуллал2швоалушеш4шалелуоал4дкдулаол3лалклао3талкщаш4тао4ьалктовокрвл4щао44тшво4тат33д3д4д3д4дабаььаьццььувьуь23333 и папа ькькалкькьк меня с ума и папа сказал

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.