Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Alex28
0 / 0 / 0
Регистрация: 18.02.2012
Сообщений: 22
#1

Одномерый массив. Перенести в начало массива минимальный элемент - Pascal ABC

20.04.2012, 21:16. Просмотров 548. Ответов 1
Метки нет (Все метки)

Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного массива, промежуточных результатов и конечного результата с пояснениями.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2012, 21:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Одномерый массив. Перенести в начало массива минимальный элемент (Pascal ABC):

Дан массив целых чисел. Перенести в начало массива минимальный элемент - Pascal ABC
дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент

перенести в начало списка последний элемент - Pascal
Уважаемые прогеры помогите с задачей данного типа: Написать программу переноса в начало списка его последнего элемента. списки мы не...

Массив: Упорядочить массив по возрастанию, при каждом просмотре массива находим минимальный элемент... - Pascal ABC
1.Дан одномерный массив, упорядочить по возрастанию, при каждом просмотре массива находим минимальный элемент и меняем местами его :на...

Массивы. Образовать новый массив путем умножения элементов массива А на минимальный элемент массива B - Pascal ABC
Даны массивы A(N) и B(N). Образовать новый массив C(N) путем умножения элементов массива A(N) на минимальный элемент массива B(N). В новом...

Преобразовать 2-хмерный массив: все отрицательный числа массива заменить на минимальный элемент этого массива. - Pascal
Преобразовать массив: все отрицательный числа массива заменить на минимальный элемент этого массива. Кол-во строк 4,столбцов 6. Также...

Массив: Найти и вывести на экран минимальный элемент массива. - Pascal ABC
организовать ввод и вывод на экран двумерного массива F, состоящего из вещественных чисел из промежутка, расположенных в 5-и строках и в...

1
3a9Ic
141 / 129 / 22
Регистрация: 08.04.2012
Сообщений: 245
20.04.2012, 21:40 #2
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
Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,index,buf,min:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
     a[i]:=Random(21);
     write(' a[',i,']=',a[i]);
     end;
     min:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]<min then
                 begin
                      min:=a[i];              //Поиск минимального эл.
                      index:=i;               //Его индекс
                 end
         end;
     writeln('');
     write('Min=',min,' Index=',index);
     buf:=a[1];                                  //Замена первого элемента,с тем,откуда мы его взяли
     a[1]:=a[index];
     a[index]:=buf;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);      //Вывод
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2012, 21:40
Привет! Вот еще темы с ответами:

Дан массив действительных чисел. Удалить из массива минимальный элемент - Pascal
дан массив действительных чисел а1,…, аn. Удалить из массива минимальный элемент. помогите написать пожалуйста программу в паскале

Дан двухмерный массив. Вывести максимальный и минимальный элемент массива - Pascal ABC
Дан двухмерный массив . Вывести максимальный и минимальный элемент массива. заранее спасибо

Задан массив С(М). Определить минимальный элемент массива С и его номер С1<0, М<=40 - Pascal ABC
Задан массив С(М). Определить минимальный элемент массива С и его номер С1&lt;0, М&lt;=40

Положительные чётные элементы массива перенести в начало - Pascal
Дан массив Х, состоящий из N целых чисел. Выполнить упорядочение массива по правилу: все положительные чётные элементы массива Х перенести...


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

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

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