ЦИКЛ - ПОКА (i=j) или (A[i]<>A[j]) и (j<=na) j:=j+1; Кцикл
Если (i<>j) и (j<=na) то
Flag:=true;
Если k=0 then {Если в массиве B нет ещё элементов}
k:=k+1;
m:=m+1;
B[m]:=A[i];
Кесли
Иначе
m:=1;
{Проверка: есть ли в массиве B уже такой элемент A[i] }
ЦИКЛ - ПОКА (m<=k) и (B[m]<>A[i]) m:=m+1; Кцикл
Если (m<=k) то Flag:=false; Кесли
Если flag то { Если нет A[i] в B }
k:=k+1;
B[k]:=A[i];
Кесли
Кесли
Кцикл
Конец
Алгоритм ,,Основная часть программы ''
Начало
Вывод ('Ковалёв Александр С-11 ');
Вывод ('Вариант 16 Лабораторная работа 5');
Вывод ('Дан целочисленный массив A[1:n].Написать программу, включающую две процедуры с параметрами. В первой процедуре необходимо подсчитать количество повторений каждого элемента массива A. Вторая процедура: Сформировать новый массив, содержащий повторяющиеся элементы массива A. Элементы в новом массиве не повторяются.');
Ввод ('Введите число элементов в массиве = ' );
Ввод (na);
Вывод ('Введите элементы массива : ');
ЦИКЛ - ДЛЯ i от 1 до na
Вывод ('A[',i,'] = ' );
Ввод (A[i]);
Кцикл
OBRABOTKA1(na,A);
Вывод ('Под исходным массивом A выводятся кол-ва повторений каждого эл-та');
ЦИКЛ - ДЛЯ i от 1 до na
Вывод (A[i]);
Кцикл
ЦИКЛ - ДЛЯ l от 1 до na
Вывод (VSP[l]);
Кцикл
OBRABOTKA2 (na,A);
Вывод ('Полученные элементы массива : ');
Если k=0 то Вывод ('отсутствуют , так как повторяющихся элементов в массиве A нет')
Иначе
ЦИКЛ - ДЛЯ m от 1 до k
Вывод (B[m]
Кцикл
Кесли
Конец
Для лабораторной работы 5_1
Вычислить значение a по формуле a = n! / ( k! *(n-k)! )
Дан целочисленный массив A[1:n].Написать программу, включающую две процедуры с параметрами. В первой процедуре необходимо подсчитать количество повторений каждого элемента массива A. Вторая процедура решает следующую задачу: Сформировать новый массив, содержащий повторяющиеся элементы массива A. Элементы в новом массиве не повторяются.