Задания уровня 1

Упражнение 1. Задан массив целых чисел. Необходимо удалить из него все совершенные числа. Совершенное число представляет собой сумму всех своих делителей, меньших его самого. Для решения поставленной задачи необходимо проверить каждый элемент массива, и, если он представляет собой совершенное число, удалить его (после удаления остается элемент с тем же номером, однако это уже следующий элемент). В противном случае надо перейти к следующему элементу. В программе будут использоваться две подпрограммы: функция Sover, которая проверяет, является ли число совершенным, и процедура Udal удаления одного элемента из массива.

1. Наберите текст программы:

Program MAS_3;

Type

{Тип данных massiv будет использоваться при описании процедуры удаления i-го элемента}

massiv=array[1..1000] of longint;

{Описание функции, проверяющей, является ли число совершенным}

Function Sover (P: longint):boolean;

var sum, m: longint;

Begin

if p>1 then

begin{Нахождение суммы общих делителей}

sum:=1; {В начале сумма равна 1, т.к. любое число делится на 1}

for m:=2 to p div 2 do

{Делителем числа может быть любое число от 2 до половины самого себя}

if p mod m=0 then sum:= sum+m; {Если число m – делитель, то добавляем его к сумме}

{Если сумма делителей = самому числу p, то функция возвращает значение true,}

if sum=p then Sover:=true

else Sover:=false{иначе - false}

end;

{Числа, меньшие или равные 1, не являются совершенными, поэтому ф-ция возвращает значение false}

else Sover:=false

end;

{Описание процедуры удаления i-го элемента из массива x}

Procedure Udal (var x: massiv; i: word; var N: word);

var j: word;

Begin

for j:=i to N-1 do{Сдвиг массива, начиная с i–го, влево на один элемент}

x[j]:=x[j+1];

N:=N-1; {После удаления элемента его размер становится на один меньше}

end;

var x: massiv;

i, n: word;

L: boolean;

Begin

write ('n='); readln (n);

writeln ('Массив X');

for i:=1 to n do read (x[i]);

i:=1; {Просмотр массива начинаем с первого элемента}

while (i<=n) do{Проверяем, не достигнут ли конец массива}

Begin

{Обращение к функции Sover, которая проверяет, является ли элемент массива x[i] совершенным;}

{результат записывается в логическую переменную L}

L:=Sover (x[i]);

{Если число совершенное,то удаляем его из массива. При этом текущим остается элемент с номером i}

{но после удаления там хранится другой элемент}