Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов 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:40   #2
3a9Ic
Форумчанин
 
Аватар для 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. Программирование на Pascal ABC. Помощь в решении задач.
Запросить с клавиатуры длинную десятичную дробь 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Delphi для начинающих Дан целочисленный массив А[n], n<=20. Поменять местами элемент, следующий за максимальным, и минимальный элемент массива.
Задача 1. Дан целочисленный массив А, n<=20. Поменять местами элемент, следующий за максимальным, и минимальный элемент массива.Если минимальный элемент массива находится непосредственно за максимальным или максимальный элемент последний, ввести сообщение и преобразования массива A не делать.
Nurxan
C для начинающих [C] Дан одномерный массив А состоящий из n элементов. перенести в начало массива все четные элементы а в конец -все нечетные.
Кому не сложно,помогите пожалуйста написать данную программу в Си. Дан одномерный массив А состоящий из n элементов. перенести в начало массива все четные элементы а в конец -все нечетные.
андрюня
Turbo Pascal в массиве нужно перенести второй нулевой элемент в его начало(массива)
народ кто шарит в паскале помоги пожалуйста.задача следующая:в массиве нужно перенести второй нулевой элемент в его начало(массива).заранее спасибо! Добавлено через 1 час 23 минуты народ:(тишина меня убивает:(
akeks
Pascal (Паскаль) перенести в начало списка последний элемент
Уважаемые прогеры помогите с задачей данного типа: Написать программу переноса в начало списка его последнего элемента. списки мы не прошли а задачу по ним решить надо для зачета помогите! время до среды!)
helen154
QBasic Oпределить минимальный элемент массива и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом массива.
Обработать на компьютере одномерный массив E(N): определить минимальный элемент массива и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом массива. Размер исходного массива N ввести с клавиатуры. Вывести на экран все результаты и исходный массив. Проверить...
GreenDen
Опции темы

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

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