Форум программистов, компьютерный форум CyberForum.ru

Pascal ABC

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

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

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

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

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

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

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

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

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

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

Массив: Умножить все элементы, предшествующие минимальному элементу массива, на минимальный элемент. - Pascal ABC
Помогите раку. &quot;Дан массив А из 10 целых чисел. Умножить все элементы, предшествующие минимальному элементу массива, на минимальный...

Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива - Pascal ABC
1)Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива. 2)Даны: целое число n,...

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

Двумерный массив. Найти минимальный элемент, умножить элементы матрицы на минимальный - Pascal ABC
найти элемент с минимальным значением и заменить элементы матрицы на произведение её элементов на найденный элемент, вывести новую матрицу...

Дан массив А с N элементами. Найти максимальный элемент с нечетным индеском и минимальный элемент с четным - Pascal ABC
Дан массив А с N элементами. Найти максимальный элемент с четным индеском и минимальный элемент с нечетным индексом. Помогите пожалуйста,...

Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение - Pascal ABC
Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение. Вот шапка: Uses Crt; Type Mas = array of...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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.
Yandex
Объявления
20.04.2012, 21:40     Одномерый массив. Перенести в начало массива минимальный элемент
Ответ Создать тему
Опции темы

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