Вводится последовательность из N целых чисел. Найти наименьшую по значению цифру в каждом числе (функцией оформить определение
10-11 класс
|
наименьшей цифры числа).
Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
num, min, i: Integer;
Begin
num := number;
While num <> 0 Do
Begin
num := num Div 10;
i := i + 1;
End;
SetLength(digits, i);
num := number;
For i := 0 To Length(digits) - 1 Do
Begin
digits[i] := num Mod 10;
num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
If digits[i] < digits[min] Then
min := i; Result := digits[min];
End;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
Write(MinDigit(a[i]), ' ');
End.
Другие вопросы из категории
Вычислите в какой координатной четверти расположен треугольник,образованный прямой,заданной уравнением y=ax+b, и осями ординат. Числа a и b,что треугольник всегда существует
формат входных данных:
Входной файл INPUT TXT содержит заданные целые числа a и b (-100 меньше или равно a b но больше чем 100)
Выходной файл OUTPUT. TXT должен содержать номер четверти
изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.
i:=1 to 10 do
B[i]:=A[5] – A[i]
Сколько элементов массива будут иметь отрицательные значения?
1) 0 2) 5 3) 10 4) 4
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Помогите пожалуйста написать программу)