Проверьте , почему не работает

integer1. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см). program integer_1; var l, k: integer; begin write ('введите значение l: '); readln (l); k : = l div 100; write ('количество полных метров: ', k,'.'); end. integer2. дана масса m в килограммах. используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг). program integer_2; var m, k: integer; begin write ('введите значение m: '); readln (m); k : = m div 1000; write ('количество полных тонн: ', k,'.'); end. integer3°. дан размер файла в байтах. используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта). program integer_3; var a, k: integer; begin write ('введите размер файла: '); readln (a); k : = a div 1024; write ('количество полных килобайтов: ', k,'.'); end. integer4. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию деления нацело, найти количество отрезков b, размещенных на отрезке a. program integer_4; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a div b; write ('количество отрезков b, размещенных на отрезке a: ', k); end. integer5. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка a. program integer_5; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a mod b; write ('длина незанятой части отрезка: ', k); end. весьма вероятно, что условия следующих покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение , подобной данным. integer6. дано двузначное число. вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления. program integer_6; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; writeln (desyatki); edinizi : = chislo mod 10; writeln (edinizi); end. integer7. дано двузначное число. найти сумму и произведение его цифр. program integer_7; var chislo, desyatki, edinizi, summa, proizv: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; summa : = desyatki + edinizi; proizv : = desyatki * edinizi; writeln ('сумма цифр числа: ', summa); writeln('произведение цифр числа: ', proizv); end. integer8°. дано двузначное число. вывести число, полученное при перестановке цифр исходного числа. program integer_8; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; chislo : = edinizi * 10 + desyatki; writeln ('полученное число: ', chislo); end. integer9. дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа (сотни). program integer_9; var chislo, sotni: integer; begin write ('введите число: '); readln (chislo); sotni : = chislo div 100; writeln (sotni); end. integer10. дано трехзначное число. вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). program integer_10; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); edinizi : = chislo mod 10; writeln (edinizi); desyatki : = chislo mod 100 div 10; writeln (desyatki); end.

ответ:

объяснение:

m = 45, дальше идёт обработка массива dat от 4 до 10

если dat[k] > dat[1] тогда m будет прибавлять в себя этот элемент массива

dat[4] = 15, условие ложно цикл идет дальше

dat[5] = 20, условие ложно, цикл идет дальше

dat[6] = 80, условие истинно, m= 45+45=90, цикл идет дальше

dat[7] = 35, условие ложно, цикл идет дальше

dat[8] = 70, условие истинно, m = 90+45=135, цикл идет дальше

dat[9] = 10, условие ложно, цикл идет дальше

dat[10] = 45 условие истинно, m = 135 + 45 = 180, цикл завершен

вывод m (180)

ответ: 180