Автор работы: Пользователь скрыл имя, 23 Мая 2011 в 18:31, курсовая работа
Задан одномерный массив. Найти элемент массива удовлетворяющий условию. Удалить найденный элемент из массива, и преобразованный массив упорядочить по возрастанию.
Исходными данными являются элементы одномерного массива и условие поиска элемента массива. В результате решения задачи должен быть удален элемент массива и сортировка массива по возрастанию.
write (‘Введите элементы массива’);
read(a[i]); end;
for i:=1 to n do begin
if a[i]=2*a[i+1] then begin
s:=i; m:=m+1; end; end;
if m=0 then
write(‘Элементы не найдены’) else begin
for i:=s to n do begin
j:=j+1; k[j]:=a[i]; end;
j:=0;
for i:=s to n-1 do begin
j:=j+1; a[i]:=k[j];
end;end;
for y:=n downto 1 do
for i:=1 to y-1 do begin
if a[i]>a[i+1]
then begin max:=a[i];a[i]:=a[i+1];a[i+1]:
for i:=1 to n-1 do begin a[n]:=0; write(a[i]‘ ’); end; END.
Тестирование программы
Ниже
приведены результаты выполнения программы
на примере различных входных
данных.
Список литературы
Информация о работе Разработка в среде Turbo Pascal программы удаления элемента массива