Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
venom6732
0 / 0 / 0
Регистрация: 26.01.2016
Сообщений: 2
#1

Составить процедуру для нахождения максимального и минимального по модулю элемента одномерного массива A - Turbo Pascal

26.01.2016, 16:12. Просмотров 357. Ответов 2
Метки нет (Все метки)

Здравствуйте. Срочно нужна помощь по данной программе.

http://www.cyberforum.ru/turbo-pascal/thread1864942.html
Составить процедуру для нахождения максимального и минимального по модулю элемента одномерного массива A.

Заранее благодарен за помощь.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2016, 16:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить процедуру для нахождения максимального и минимального по модулю элемента одномерного массива A (Turbo Pascal):

Написать процедуру для нахождения минимального элемента массива
написать процедуру для нахождения минимального элемента массива

Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и его индекса
Дан массив А из 10 элементов. Составить программу для нахождения минимального...

Составить программу для нахождения минимального и максимального элемента
2. Составить программу для нахожденияминимального и максимального элемента...

Составить процедуру нахождения индексов минимального элемента матрицы
Здравствуйте, помогите решить задачу. Составить процедуру нахождения...

Найти произведение минимального и максимального элемента одномерного массива
1) Ввести с помощью процедуры VVOD одномерный массив A. Найти произведение его...

2
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,067
01.02.2016, 00:20 #2
Лучший ответ Сообщение было отмечено venom6732 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure minmax(var x: array of integer; var min, max: integer);
var i: integer;
begin
  min := x[low(x)];
  max := min;
  for i := low(x) + 1 to high(x) do
    if min > x[i]
      then min := x[i]
      else if max < x[i]
        then max := x[i]
end;
1
venom6732
0 / 0 / 0
Регистрация: 26.01.2016
Сообщений: 2
01.02.2016, 00:27  [ТС] #3
Cyborg Drone, большое спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2016, 00:27
Привет! Вот еще темы с решениями:

Составить программу поиска нахождения минимального и максимального элементов массива
Задан числовой массив А. Составить программу поиска нахождения минимального и...

Написать процедуру нахождения максимального элемента массива из 10 целых чисел
Написать процедуру нахождения максимального элемента массива из 10 целых чисел....

Написать процедуру нахождения максимального элемента массива из 10 целых чисел
Написать процедуру нахождения максимального элемента массива из 10 целых чисел....

Вывести элемент одномерного массива, который встретился раньше минимального или максимального элемента
Всем привет! Помогите пожалуйста решить задачу. Нужно в задаче использовать...


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

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

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