Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 5
1

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

21.11.2013, 16:24. Показов 1541. Ответов 1
Метки нет (Все метки)

пользователь вводит размерность и элементы одномерного массива натуральных чисел. найти нод максимального и минимального элементов массива. вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2013, 16:24
Ответы с готовыми решениями:

Найти произведение максимального и минимального элементов массива
Даны массивы a и b.Используя процедуру :Из массива a найти максимальный элемент,из массива b ...

Найти произведение максимального и минимального элементов массива
Дан массив A (a1, a2, …, aN). Найти произведение максимального и минимального элементов массива A....

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

Найти среднее арифметическое максимального и минимального элементов массива
Дан массив размера N. Сформировать новый массив, в который поместить элементы старого, начиная от k...

1
6 / 8 / 7
Регистрация: 31.10.2013
Сообщений: 217
05.12.2013, 01:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Основная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 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
1
2
3
4
5
6
7
8
9
10
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2013, 01:27

Найти среднее арифметическое максимального и минимального по модулю элементов массива.
Найти среднее арифметическое максимального и минимального по модулю элементов массива.

Найти среднее арифметическое максимального и минимального по модулю элементов массива
Найти среднее арифметическое максимального и минимального по модулю элементов массива. С помощью...

Найти среднее арифметическое максимального и минимального по модулю элементов массива.
помогите написать программу в паскале.Условие: Найти среднее арифметическое максимального и...

Найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел
найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.