Основы программирования на языке Turbo Pascal. Беляева И.В. - 241 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

241
Program DynamicMemoryExample; Program StaticMemoryExample;
const const
maxN = 100; {максимально возможное maxN = 100;
количество элементов
в массивах A и B}
type type
Arr = array[1..maxN] of integer;{массив} Arr = array[1..maxN] of integer;
PArr = ^Arr; {указатель на массив}
var var
a,b:PArr; {a,b – массивы} a,b:Arr;
n,m:integer; {n,m – кол-во элементов} n,m:integer;
i:integer; {i – счетчик} i:integer;
begin begin
{Ввод n}
repeat repeat
read(n); read(n);
until (n>=1) and (n<=maxN); until (n>=1) and (n<=maxN);
{Выделение памяти под массив A}
GetMem(a,sizeof(integer)*n);
{Ввод массива A}
for i:=1 to n do for i:=1 to n do
read(a^[i]); read(a[i]);
{Подсчет четных элементов в массиве A}
m:=0;
for i:=1 to n do
if a^[i] mod 2 = 0
then inc(m);
{Выделение памяти под
массив B}
GetMem(b,sizeof(integer)*m);
{Заполнение массива B четными
элементами массива A}
m:=0; m:=0;
for i:=1 to n do for i:=1 to n do
if a^[i] mod 2 = 0 if a[i] mod 2 = 0
then then
begin begin
inc(m); inc(m);
b^[m]:=a^[i]; b[m]:=a[i];
end; end;
{Вывод массива B}

Страницы