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

@ruenc · Регистрация: 14.11.2013

Author24 — интернет-сервис помощи студентам

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

Nelo_001 · 05.12.2013, 01:27

Основная программа

Pascal

 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.

Модуль

Pascal

unit HOD;
interface
function Nod (a,b:integer):integer;
implementation
function Nod (a,b:integer):integer;
begin
if a=b then Nod:=a else if a>b then Nod:=Nod(a-b ,b)
else Nod:=Nod(a, b-a);
end;
end.

Сделал Синяк Николай, Республика Беларусь, Минск, Минский Колледж Предпринимательства, П-201.

@ruenc 0 / 0 / 0 Регистрация: 14.11.2013 Сообщений: 5
		1
	Найти НОД максимального и минимального элементов массива 21.11.2013, 16:24. Показов 1767. Ответов 1 Метки нет (Все метки) пользователь вводит размерность и элементы одномерного массива натуральных чисел. найти нод максимального и минимального элементов массива. вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль. 0

	05.12.2013, 01:27

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

Решение