Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/14: Рейтинг темы: голосов - 14, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 9
1

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

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

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

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

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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2010, 21:53
Ответы с готовыми решениями:

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

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

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

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

__________________
4
57 / 56 / 10
Регистрация: 29.03.2010
Сообщений: 289
14.11.2010, 22:06 2
В массиве отсортировать по убыванию все элементы стоящие после минимального.
это значит что вам нужно просмотреть весь массив и найти в нём минимальный элемент. Затем все оставшиеся элементы отсортировать. Допустим массив состоит из 50 чисел. После проверки минимальный элемент с индексом 32. Значит отсортировать нужно элементы с 33-го по 50-й
1
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 9
15.11.2010, 00:00  [ТС] 3
я не понимаю как это сделать на языке паскаль, т.е записать в программе.
0
Модератор
63330 / 47043 / 32426
Регистрация: 18.05.2008
Сообщений: 114,028
15.11.2010, 08:33 4
Лучший ответ Сообщение было отмечено как решение

Решение

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  [ТС] 5
спасибо все работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2010, 09:07

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.