Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

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

Дан одномерный массив AN. Преобразуйте массив следующим образом; поменяйте местами наибольший и наименьший элементы массива - Turbo Pascal

28.10.2013, 02:08. Просмотров 389. Ответов 2
Метки нет (Все метки)

нужна помощь!))
*Дан одномерный массив AN. Преобразуйте массив следующим образом (дополнительные массивы использовать не разрешается): поменяйте местами наибольший и наименьший элементы массива.
Замечание. Выведите на экран исходный и полученный массивы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 02:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Дан одномерный массив AN. Преобразуйте массив следующим образом; поменяйте местами наибольший и наименьший элементы массива (Turbo Pascal):

Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве поменяйте местами наибольший и наименьший элементы - Pascal
1. Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве поменяйте местами наибольший и...

Массив. Поменять местами наибольший и наименьший элементы массива - Pascal
Дан массив Z(5) поменять местами наибольший и наименьший элементы этого массива. вывести полученный массив Z

В массиве A(N) поменяйте местами наибольший и наименьший элементы - Turbo Pascal
6. В массиве A(N) поменяйте местами наибольший и наименьший элементы. Должен быть обязательно бинарный поиск, помагите очень срочно нада...

В массиве поменяйте местами наибольший и наименьший элементы - Turbo Pascal
В массиве A(N) поменяйте местами наибольший и наименьший элементы. С использованием модуля

Дана матрица A(N,N). Поменяйте местами её наибольший и наименьший элементы. - Turbo Pascal
Помогите составить хотяб 1 прогу очень срочно нада: 1)Дана матрица A(N,N). Поменяйте местами её наибольший и наименьший элементы. 2)В...

В одномерном массиве поменяйте местами последний наименьший и первый наибольший элементы - Turbo Pascal
Задача: В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и...

2
ildwine
Модератор
2907 / 1759 / 636
Регистрация: 04.03.2013
Сообщений: 4,371
Записей в блоге: 1
28.10.2013, 07:00 #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
30
31
32
33
34
35
36
37
var
  a : array[1..100] of integer;
  min, max, t : integer;
  imax, imin, i, n : byte;
begin
  randomize;
  min := 100;
  max := -100;
  repeat
    write('n = ');
    readln(n)
  until (n > 0) and (n <= 100);
  writeln('исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random(50) - 25;
    write(a[i]:4);
    if a[i] <= min then
    begin
      min := a[i];
      imin := i
    end;
    if a[i] >= max then
    begin
      max := a[i];
      imax := i
    end
  end;
  t := a[imax];
  a[imax] := a[imin];
  a[imin] := t;
  writeln;
  writeln('преобразованный массив:'); 
  for i := 1 to n do
    write(a[i]:4);
  readln
end.
1
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
28.10.2013, 14:08  [ТС] #3
спасибо большое))))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 14:08
Привет! Вот еще темы с ответами:

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы - Pascal
В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и изменённый...

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы - Pascal
В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и изменённый...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C - Pascal
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C.

Двумерный массив. Поменять местами столбцы, содержащие наибольший и наименьший элементы - Turbo Pascal
Всем доброго времени суток, дамы и господа! Требуется решить задачу на Pascal. Прошу оказать помощь. Условие задачи: &quot;Напишите...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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