Вывести минимальный и максимальный элемент массива заданного размера - PascalABC.NET
Формулировка задачи:
ввести с клавиатуры размерность одномерного динамического массива, затем создать его с рандомными значениями и вывести минимальный и максимальный элемент массива.
Решение задачи: «Вывести минимальный и максимальный элемент массива заданного размера»
textual
Листинг программы
var a:array of integer; n,i,min,max:integer; begin randomize; write('Введите размер массива n='); readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(100); write(a[i]:4); if i=0 then begin min:=a[0]; max:=a[0]; end else if a[i]<min then min:=a[i] else if a[i]>max then max:=a[i]; end; writeln; writeln('Минимальный=',min,' максимальный=',max) end.
Объяснение кода листинга программы
- Объявляются переменные:
- a - массив целых чисел;
- n - размер массива;
- i - счётчик для цикла;
- min - переменная для хранения минимального значения;
- max - переменная для хранения максимального значения.
- Инициализируется генератор случайных чисел.
- Пользователю предлагается ввести размер массива.
- Массив инициализируется случайными значениями.
- В цикле выводятся значения массива.
- Если массив ещё не обходился, то текущее значение сравнивается с минимальным и максимальным. Если текущее меньше минимального, то обновляется минимальное значение, если больше - максимальное. Если текущее значение равно минимальному или максимальному, то значение переменной min или max не меняется.
- После цикла выводятся минимальное и максимальное значения массива.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д