Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Alex28
Новичок
0 / 0 / 0
Регистрация: 18.02.2012
Сообщений: 16
20.04.2012, 21:16     Одномерый массив. Перенести в начало массива минимальный элемент   #1
Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного массива, промежуточных результатов и конечного результата с пояснениями.
AdAgent
Объявления
20.04.2012, 21:16    Одномерый массив. Перенести в начало массива минимальный элемент
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2012, 21:16    Одномерый массив. Перенести в начало массива минимальный элемент

Посмотрите здесь:

Pascal ABC Массивы. Образовать новый массив путем умножения элементов массива А на минимальный элемент массива B

Pascal ABC Массив: Найти и вывести на экран минимальный элемент массива.

Pascal ABC Массив: Найти минимальный элемент среди четырех элементов массива

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

Pascal ABC Дан массив целых чисел. Перенести в начало массива минимальный элемент

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

Pascal ABC Массив: Умножить все элементы, предшествующие минимальному элементу массива, на минимальный элемент.

Pascal ABC Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива

Pascal ABC дан одномерный массив натуральных чисел. Определить минимальный и максимальный элемент массива. Возвести максимальный элемент в степень, равную минима

Pascal ABC Дан двумерный массив А, состоящий из N строк и M столбцов. Удалить столбец, содержащий минимальный элемент массива некратный 4

3a9Ic
Форумчанин
136 / 124 / 6
Регистрация: 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 04:33. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.