Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Pascal ABC
Восстановить пароль Регистрация

Ответ Создать новую тему
 
20.04.2012, 21:16   #1
Alex28
Новичок
Регистрация: 18.02.2012
Сообщений: 16
Репутация: 0 (0)
Одномерый массив. Перенести в начало массива минимальный элемент / Pascal ABC

Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного массива, промежуточных результатов и конечного результата с пояснениями.
20.04.2012, 21:16
AdAgent
Объявления
20.04.2012, 21:40   #2
3a9Ic
Форумчанин
Регистрация: 08.04.2012
Сообщений: 245
Репутация: 136 (124)
Лучшие ответы: 6
Одномерый массив. Перенести в начало массива минимальный элемент / Pascal ABC

Код 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
Запросить с клавиатуры длинную десятичную дробь (больше 10 цифр до и после запятой,но меньше 20 цифр до и после запятой),разделить это число на 1024 и полученное число возвести в квадрат
Pascal ABC Найти все такие n (n ≤100), что у числа n! сумма цифр – квадрат целого числа.
помогите решить задачи плизз!!очень прошу!! 1) Найти все такие n (n ≤100), что у числа n! сумма цифр – квадрат целого числа. 2) Даны натуральное число N и две последовательности A1, A2, …, AN и B1, B2, …, BN. Определить, верно ли, что эти последовательности отличаются только ...
20.04.2012, 21:40
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C++ На С++ перенести в начало одномерного массива второй нулевой элемент
Помогите написать программу которая переносит в начало одномерного массива второй нулевой элемент.
С++ для начинающих RuNNeR11 05.05.2014 13:55
C++ Builder На С++ перенести в начало одномерного массива второй нулевой элемент
Помогите написать программу которая переносит в начало одномерного массива второй нулевой элемент.
C++ Builder RuNNeR11 05.05.2014 13:13
C (СИ) Дан одномерный массив из n чисел. Найти минимальный элемент массива до 0 и минимальный элемент массива после нуля. Поменять их местами
Дан одномерный массив из n чисел. Найти минимальный элемент массива до 0 и минимальный элемент массива после нуля. Поменять их местами.
C для начинающих shop 04.05.2013 11:07
Turbo Pascal Дан одномерный массив из n чисел. Найти минимальный элемент массива до 0 и минимальный элемент массива после нуля. Поменять их местами
Дан одномерный массив из n чисел. Найти минимальный элемент массива до 0 и минимальный элемент массива после нуля. Поменять их местами
Turbo Pascal shop 30.04.2013 23:11
Pascal ABC Дан массив целых чисел. Перенести в начало массива минимальный элемент
дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент
Pascal ABC Allenka1 06.03.2013 20:34
Опции темы

Текущее время: 11:24. Часовой пояс GMT +4.

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