Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 19:16   #1
Алексей НТ
 
Регистрация: 21.05.2012
Сообщений: 6
Печаль массив из N целых положительных чисел. Определить наименьшую цифру у каждого числа. через подпрограмму ( Free Pascal )

Вводится массив из N целых положительных чисел. Определить наименьшую цифру у каждого числа. Написать подпрограмму, которая для заданного числа возвращает
в нем наименьшую цифру.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

Последний раз редактировалось Serge_Bliznykov; 22.05.2012 в 00:47.
Алексей НТ вне форума Ответить с цитированием
Старый 21.05.2012, 19:19   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
function GetMinDigit(X:integer):byte;
var min:byte;
begin
min:=9;
while x>0 do
begin
if X mod 10<min then min :=x mod 10;
x:=x div 10;
end;
GetMinDigit:=min;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массив целых положительных чисел Х. сформулировать массив c номерами элементов массива Х, являющихся простыми числами (С++) ereminden_23 Помощь студентам 5 18.04.2012 20:28
Дан неубывающий массив положительных и отрицательных целых чисел a[1]<=a[2]<=...<=a[n]. Машка-Ромашка Помощь студентам 0 23.12.2010 04:15
Дан неубывающий массив положительных и отрицательных целых чисел a[1]<=a[2]<=...<=a[n]. Машка-Ромашка Общие вопросы .NET 0 22.12.2010 04:24
Дано натуральное число n. Определить наименьшую цифру с чётным номером - Задача по Си Lexeres Помощь студентам 6 16.11.2009 19:24
TASM - нахождения максимального числа из трех положительных целых чисел и умножения максимального числа iggor Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 24.05.2009 20:16