Найти НОД максимального и минимального элементов массива - Turbo Pascal

Формулировка задачи:

пользователь вводит размерность и элементы одномерного массива натуральных чисел. найти нод максимального и минимального элементов массива. вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль.

Код к задаче: «Найти НОД максимального и минимального элементов массива - 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.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ