0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 9

Ввести одномерный целочисленный массив А, вывести его. В массиве отсортировать по убыванию все элементы стоящие после минимального.

14.11.2010, 21:53. Показов 3696. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Условие задачи:
Ввести одномерный целочисленный массив А, вывести его. В массиве отсортировать по убыванию все элементы стоящие после минимального.

Помогите решить .Вот программа которую писал проверьте может где есть ошибка.Я не понимаю вот эту строчку как ее записать на языке в паскале:" В массиве отсортировать по убыванию все элементы стоящие после минимального."

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program odnomernui_massuv;
var A:array[1..100] of integer;
i,Imin,Imax,N: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn(`Вводим элементы массива A:`);
for i:=1 to N
begin write(`A[`,i,`]=`);
readLn (A[i]);
end;
//Вывод массива до изменения
writeLn(`исходный массив  A:`);
for i:=1 to N do
write (A[i]:5);
writeLn;
//поиск максимума и минимума в серии
imax:=1
imin:=1
for i:=1 to do
begin
if A[i]>A[imax] then
imax:=i;
if A[i]<A[imin] then
imin:=i;
end;
writeln(`imax=`,imax, `imin=`,imin);
Помогите пожалуйста. Заранее спасибо за помощь.

Добавлено через 4 часа 44 минуты
помогите

Добавлено через 1 час 4 минуты
ну помогите пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.11.2010, 21:53
Ответы с готовыми решениями:

Переписать в массив все элементы заданного массива, стоящие после его минимального элемента
Переписать в одномерный массив K все элементы заданного целочисленного массива L , стоящие после его минимального элемента .

Ввести одномерный массив X(N) (N<=90). Упорядочить в нем по возрастанию значений все элементы, стоящие после максимального элемента.
Помогите решить пожалуйста, целый день бьюсь никак не получается. Ввести одномерный массив X(N) (N&lt;=90). Упорядочить в нем по...

Преобразовать массив, упорядочив по убыванию все элементы, стоящие после второго нулевого
Ввести массив K(N). Вывести его. Преобразовать массив, упорядочив по убыванию все элементы, стоящие после второго нулевого. Вывести...

4
 Аватар для Negor
57 / 56 / 10
Регистрация: 29.03.2010
Сообщений: 289
14.11.2010, 22:06
В массиве отсортировать по убыванию все элементы стоящие после минимального.
это значит что вам нужно просмотреть весь массив и найти в нём минимальный элемент. Затем все оставшиеся элементы отсортировать. Допустим массив состоит из 50 чисел. После проверки минимальный элемент с индексом 32. Значит отсортировать нужно элементы с 33-го по 50-й
1
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 9
15.11.2010, 00:00  [ТС]
я не понимаю как это сделать на языке паскаль, т.е записать в программе.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.11.2010, 08:33
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program odnomernui_massuv;
uses crt;
var A:array[1..100] of integer;
    n,i,j,imin: byte;
    buf:integer;
begin
write('Размер массива от 1 до 100 n=');
readln(n);
//ручной ввод массива
writeLn('Вводим элементы массива A:');
for I:=1 TO N do
 begin
  write('A[',i,']=');
  readLn (A[i]);
 end;
//Вывод массива до изменения
writeLn('исходный массив  A:');
for i:=1 to N do
write (A[i]:5);
writeLn;
//поиск минимума в серии
imin:=1;
for i:=1 to N do
if A[i]<A[imin] then
imin:=i;
writeln('imin=',imin);
if imin>n-2 then write('Элементов для сортировки нет!')
else
 begin
  for i:=imin+1 to n-1 do
  for j:=i+1 to n do
  if A[i]<A[j] then
   begin
    buf:=A[i];
    A[i]:=A[j];
    A[j]:=buf;
   end;
  writeln('Элементы после минимального отсортированы по убыванию:');
  for i:=1 to n do
  write(A[i],' ');
 end;
end.
4
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 9
15.11.2010, 09:07  [ТС]
спасибо все работает
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.11.2010, 09:07
Помогаю со студенческими работами здесь

Ввести массив а [1], а [2],..., а [n] целого типа и заменить все его элементы, стоящие после минимального, нулями.
Ввести массив а , а ,..., а целого типа и заменить все его элементы, стоящие после минимального, нулями. Полученный массив вывести на...

Переписать в массив К все элементы заданного исходного, стоящие после его минимального элемента
переписать в одномерный массив К все элементы заданного целочисленного массива L , стоящие после его минимального элемента

Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального
Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального

Ввести массив целого типа и заменить все его элементы, стоящие до максимального, нулями
Ввести массив a, a , …, а целого типа и заменить все его элементы, стоящие до максимального, нулями. Полученный массив вывести на экран.

Заменить все элементы массива стоящие после минимального на значение минимального элемента
Заменить все элементы массива стоящие после минимального на значение минимального элемента. вот эту еще помогите решить (


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
Паттерны в Python: Singleton, Factory и Observer
py-thonny 26.04.2025
Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .
Исключения в C#: Stack Overflow, Access Violation и Out of memory
stackOverflow 26.04.2025
Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик.
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python
py-thonny 25.04.2025
Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .
Apache Kafka vs RabbitMQ в микросервисной архитектуре
ArchitectMsa 25.04.2025
Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .
Параллельное программирование с OpenMP в C++
NullReferenced 24.04.2025
Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API
UnmanagedCoder 24.04.2025
Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru