Найти максимальный и минимальный элементы заданного массива

@Zara2707 · Регистрация: 18.03.2018

Author24 — интернет-сервис помощи студентам

Реализовать в виде модуля набор подпрограммы для выполнения следующих действий над элементами одномерного массива:
1) нахождение максимального элемента
2) нахождение минимального элемента
Найти максимальный и минимальный элементы заданного массива

@Hitoku · 12.05.2018, 17:40

Модуль:

Pascal

unit MyModule;
 
interface
function Max(a: array of integer): integer;
function Min(a: array of integer): integer;
 
implementation
function Max(a: array of integer) := a.Max;
function Min(a: array of integer) := a.Min;
end.

Программа:

Pascal

uses MyModule;
begin
  var a := ArrRandom(10, -10, 10); a.Println;
  writeln(Max(a), NewLine, Min(a));
end.

@Zara2707 0 / 0 / 0 Регистрация: 18.03.2018 Сообщений: 17
		1
	Найти максимальный и минимальный элементы заданного массива 12.05.2018, 17:22. Показов 881. Ответов 1 Метки нет (Все метки) Реализовать в виде модуля набор подпрограммы для выполнения следующих действий над элементами одномерного массива: 1) нахождение максимального элемента 2) нахождение минимального элемента Найти максимальный и минимальный элементы заданного массива 0

	12.05.2018, 17:40

Найти максимальный и минимальный элементы заданного массива

Решение