Найти НОД максимального и минимального элементов массива - Turbo Pascal
Формулировка задачи:
пользователь вводит размерность и элементы одномерного массива натуральных чисел. найти нод максимального и минимального элементов массива. вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль.
Решение задачи: «Найти НОД максимального и минимального элементов массива»
textual
Листинг программы
Uses Hod,crt; type mas=array[1..100] of integer; var a:mas; max,min,n,i:integer; begin writeln ('Введите размероность массива до 100'); read (n); writeln ('Введите элементы массива'); for i:=1 to n do readln (a[i]); begin min:=a[1]; for i:=2 to n do begin if min>a[i] then min:=a[i]; end; begin max:=a[1]; for i:=2 to n do begin if max<a[i] then max:=a[i]; end; writeln (' '); writeln (nod(min,max)); end; end; end.