Вывести минимальный и максимальный элемент массива заданного размера - 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.

Объяснение кода листинга программы

  1. Объявляются переменные:
    • a - массив целых чисел;
    • n - размер массива;
    • i - счётчик для цикла;
    • min - переменная для хранения минимального значения;
    • max - переменная для хранения максимального значения.
  2. Инициализируется генератор случайных чисел.
  3. Пользователю предлагается ввести размер массива.
  4. Массив инициализируется случайными значениями.
  5. В цикле выводятся значения массива.
  6. Если массив ещё не обходился, то текущее значение сравнивается с минимальным и максимальным. Если текущее меньше минимального, то обновляется минимальное значение, если больше - максимальное. Если текущее значение равно минимальному или максимальному, то значение переменной min или max не меняется.
  7. После цикла выводятся минимальное и максимальное значения массива.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы