Форум программистов, компьютерный форум 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
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Pascal ABC дан одномерный массив натуральных чисел. Определить минимальный и максимальный элемент массива. Возвести максимальный элемент в степень, равную минима
Var n: integer; Procedure X; Var a: array of integer; i,q,min,max: integer; begin max:=1; min:=a; For i:=1 to n do Begin
Pascal ABC 1 Alex281 05.11.2013 16:45
Pascal ABC Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива
1)Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива. 2)Даны: целое число n, действительные числа X1, X2,X3....Xn. Найти среди чисел X1,X2 ...Xn...
Pascal ABC 1 Windows98 15.10.2013 22:30
Pascal ABC Массив: Упорядочить массив по возрастанию, при каждом просмотре массива находим минимальный элемент...
1.Дан одномерный массив, упорядочить по возрастанию, при каждом просмотре массива находим минимальный элемент и меняем местами его :на первом подходе с первым, на втором со вторым и т.д. 2. Дан...
Pascal ABC 1 Agata1996 11.05.2013 13:34
Pascal ABC Дан массив целых чисел. Перенести в начало массива минимальный элемент
дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент
Pascal ABC 2 Allenka1 06.03.2013 20:34
Pascal ABC Дан двухмерный массив. Вывести максимальный и минимальный элемент массива
Дан двухмерный массив . Вывести максимальный и минимальный элемент массива. заранее спасибо
Pascal ABC 1 DanieLB 12.02.2013 20:42
Pascal ABC Массив: Найти минимальный элемент среди четырех элементов массива
Составьте программу, которая запрашивает значение элементов одномерного числового массива А и решает следующие задачи: 1. Найти минимальный элемент среди четырех элементов массива. 2. Вычислить...
Pascal ABC 1 andreyka9 20.06.2012 10:19
Pascal ABC Массив: Найти и вывести на экран минимальный элемент массива.
организовать ввод и вывод на экран двумерного массива F, состоящего из вещественных чисел из промежутка, расположенных в 5-и строках и в 4-и столбцах. Найти и вывести на экран минимальный элемент...
Pascal ABC 3 Karamka 10.05.2012 16:50
Pascal ABC Массивы. Образовать новый массив путем умножения элементов массива А на минимальный элемент массива B
Даны массивы A(N) и B(N). Образовать новый массив C(N) путем умножения элементов массива A(N) на минимальный элемент массива B(N). В новом массиве C(N) определить количество отрицательных элементов....
Pascal ABC 2 Кирилл С 17.04.2012 22:32
Опции темы

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