Напишите программу для паскаль! дано натуральное число. установить, является ли последовательность его цифр при просмторе их справа налево по возрастанию.например,для числа 5321 ответ положиетльный, для 7820 и 9663-отрицательныйбез булина! 20

191

256

Посмотреть ответы 1

Ответы на вопрос:

MrGromFull

Информатика

4,6(34 оценок)

Эм, ищем сумму элементов которые меньше первого и первого var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 45; dat[2] : = 55; dat[3] : = 40; dat[4] : = 15; dat[5] : = 20; dat[6] : = 80; dat[7] : = 35; dat[8] : = 70; dat[9] : = 10; dat[10] : = 45; m : = dat[1]; for k : = 2 to 10 do if dat[k] < dat[1] then m : = m + dat[k]; write(m); end. вывод 165