Листинг программ

Задача№10

function d(n:integer):integer;

var i,a:integer;

begin

if n=1 then i:=1 {частный случай, если n равно 1}

else

begin

i:=2;

while n mod i <> 0 do {поиск наименьшего делителя}

i:=i+1;

end;

d:=i

end;

VAR m,i,j,x:integer;

a:array[1..1000] of integer;

BEGIN

repeat {ввод кол-ва n}

write('m>0 Введите m:');

readln(m);

until m>0;

For i:= 1 to m do {заносим в массив рандомные числа n}

begin

a[i]:= random(1,100);

Write(a[i], ' ');

end;

Writeln;

for i:=1 to m do {пузырьковая сортровка}

for j:=i+1 to m do

if d(a[i])>d(a[j]) then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x

end;

for i:=1 to m do {вывод нового массива}

write(a[i], ' ');

END.

Задача №31

var

a: array[1..100] of integer; {a - целочисленный массив}

n, i, j, t: integer;

begin

write('Задайте количество элементов массива: ');

readln(n); {Задаем размер массива}

writeln('Исходный массив: ');

for i:= 1 to n do

begin

a[i]:= random(100); {Задаем элементам массива случайное значение от 1 до 100}

write(a[i], ' '); {Выводим полученные элементы}

end;

writeln;

for i:= 2 to n do {Цикл от 2 до n (до конца массива)}

for j:= n downto i do {Обратный цикл, от n до i. С понижением. (От конца массива до 2.)}

if (a[j - 1] mod 10) > (a[j] mod 10) then {Проверяем условие, если последняя цифра элемента j-1

больше последней цифры j-ого элемента, то}

begin

t:= a[j - 1];

a[j - 1]:= a[j]; {Меняем эти элементы массива с помощью вспомогательной переменной t}

a[j]:= t;

end;

writeln('Преобразованный массив:');

for i:= 1 to n do

write(a[i], ' '); {Выводим отсортированный массив}

end.

Приложение Б

Распечатка тестов

Задача 10

Задача 31

Приложение В

Блок-схема алгоритмов

Задача 10