Var k, m: integer; dat: array(1..10) of integer; begin dat (1) i= 12; dat (2) - 15; dat (3) : = 17; dat (4) re 15; dat (5] : 14; dat (6) : = 12; dat [7] : = 10; dat [8] : 13; dat (9) * 14; dat (10) * 15; m : = 20; for k: =1 to 10 do if dat (k) < m then begin m : dat(k): end; writeln(m): end.

ответ:

m не меняется, поэтому будет напечатано 20

Какой должен быть результат - это у вас в написано: сначала то, что вы введете, а затем оно же, но в обратном порядке.  а вот какой он будет - это зависит от того, что вы написали в программе. в качестве значений для ввода возьмите, например, третье число, затем числа от второго по шестое, а затем все десять из ниже ряда:   -24  18  18  16    4  -2  16  11  16 -15 они были получены из программы на паскале при датчика случайных чисел.

Урок "определение объема графического файла"    2.  какой объем информации занимает черно-белое изображение  размером 600 х 800? решение:     600 х 800 = 480 000  точек    480 000  точек  х 1 бит = 480 000  бит480 000  бит / 8 бит / 1024 байт ≈ 58, 59 кбайтответ:   58, 59 кбайт    3.  определить  объем растрового изображения размером 600 х 800 при глубине цвета 24 бита.  решение:     600 х 800 = 480 000  точек 480 000  точек  х 24 бит = 11 520 000  бит11 520 000 бит / 8 бит / 1024 байт = 1406,25 кбайт / 1024 байт ≈ 1,37 мбайтответ:   ≈ 1,37 мбайт    3.    определить объем видеопамяти компьютера, который необходим для реализации графического режима монитора с разрешающей способностью  1024×768 и палитрой 65536 цветов.решение:   n  =  2i    =    65536             i  =   16 бит            количество точек изображения равно:             1024  х 768 = 78643216 бит  х 786432 = 12582912 бита / 8 бит / 1024 байт = 1536 кбайт / 1024 байт = 1,5 м байтаответ:   1,5 м байта    4.  определить объем растрового изображения размером  200 х 200 и  256 цветами.решение:   200  х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 кбайт ≈ 39 кбайтответ:   39 кбайт