Задан массив К (N). Добавить массив С (В). Выполнить сортировку разделением. В полученном массиве найти индексы элементов, которые кратны минимальному значению элемента массива.

Листинг - Сортировка разделением

type mas=array [1.20] of integer;

var i,min,n,m, imn: integer; a,c: mas;

procedure sort (l,r: integer);

var

i,j,x1,y1,m: integer;

begin

i: =l;

j: =r;

m: =round ( (l+r) /2);

x1: =a [m];

repeat

while a [i] <x1 do inc (i);

while a [j] >x1 do dec (j);

if i<=j then

begin

y1: =a [i];

a [i]: =a [j];

a [j]: =y1;

inc (i);

dec (j);

end;

until i>j;

if l<j then sort (l,j);

if i<r then sort (i,r);

end;

begin

randomize;

writeln (');

readln (n);

for i: =1 to n do begin

a [i]: =random (10) +random (5);

end;

writeln (');

for i: =1 to n do begin

write (a [i],' ');

end;

writeln;

writeln ('');

readln (m);

for i: =1 to m do begin

c [i]: =random (15) +random (5);

end;

writeln;

writeln (');

for i: =1 to n do begin

write (c [i],' ')

end;

writeln;

writeln;

for i: =1 to m do begin

n: =n+1;

a [n]: =c [i];

end;

writeln (');

for i: =1 to n do

write (a [i],' ');

writeln;

writeln;

sort (1,n);

writeln (');

for i: =1 to n do

write (a [i],' ');

writeln;

writeln;

min: =a [1];

for i: =1 to n do begin

if a [i] <min then min: =a [i];

end;

write (= ',min);

writeln;

imn: =0;

for i: =1 to n do begin

if a [i] mod a [min] =0 then

imn: =i;

end;

begin

min: =a [1];

writeln (');

for i: =1 to n do

if (a [i] mod min = 0) then

write (i: 3);

writeln;

end;

end.

Результат решения задачи представлен на рисунке 12.

Рисунок 12 - Результат работы программы в TurboPascal

1.12 Статическое и динамическая распределение памяти

1. Заполнить массив В (10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения четных значений элементов массива. Присвоить указателю адрес 10-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на значение третьего элемента. Напечатать его новое значение.

Для тестирования программы использовались данные, приведённые в таблице 12. Полученные результаты приведены там же.

Листинг - Статическое и динамическое разделение памяти

program yp14; {название программы}

uses crt; {подключение библиотеки}

type {описание типов}

massiv=array [1.10] of integer; {описание массива}

var {раздел описания переменных}

i,z: integer;

a: massiv;

PtrMas: ^massiv; {указатель на массив}

begin clrscr; {очистка экрана}

writeln ('Vvedite elementy massiva: '); {выводнаэкран}

for i: =1 to 10 do {выводэлементовмассива}

begin

read (a [i]);

end;

writeln ('Vveden massiv: ');

for i: =1 to 10 do {выводэлементамассива}

begin

write (a [i]: 3);

end;

writeln;

PtrMas: =@a; {присвоение указателю адрес начала массива в памяти}

writeln ('-------------------------------------------');

writeln ('Polozitelnie 4isla: ');

for i: =1 to 10 do

begin

if PtrMas^ [i] mod 2 =0 then

writeln (PtrMas^ [i]);

end;

PtrMas: =Ptr (Seg (a [9]),Ofs (a [9]) +SizeOf (integer)); {присвоениеадреса 4 элемента}

writeln ('-------------------------------------------');

write ('10 element: ');

writeln (PtrMas^ [1]); {вывод значения 4 лемента}

write ('novoe zna4enie 10: ');

writeln (ptrmas^ [1]); {вывод умноженного массива}

ptrMas^ [1]: =a [3];

write ('novoe zna4enie 10: ');

writeln (ptrmas^ [1]);

readkey; {задержкаэкрана}

end. {конец программы}

Результат решения задачи представлен на рисунке 13.

Рисунок 13 - Результат работы программы в TurboPascal

1.13 Организация списков