Определить максимальный и минимальный элементы массива - Turbo Pascal
Формулировка задачи:
В произвольном числовом массиве определить максимальный и минимальный элементы и выдать номера по которым они расположеныю
Решение задачи: «Определить максимальный и минимальный элементы массива»
textual
Листинг программы
Const N = 10; Var min,max,i : Byte; m : array[1..N] of Integer; ... max:=1; min:=1; For i:=2 to N do Begin If m[i]<m[min] then min:=i; If m[i]>m[max] then max:=i; End; Writeln(min,',',max); Writeln(m[min],',',m[max]); ...
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д