В целочисленном массиве из 18 элементов записаны результаты в подтягивании на перекладине учеников 5 класса (возможные значения от 0 до 15). Найти в самый маленький результат и вывести его на экран.

Var a: array [1..18] of integer; i,m: integer; begin write ('массив с данными: '); for i: =1 to 18 do begin a[i]: =random (16); write (a[i],' ') end; writeln; m: =a[1]; for i: =2 to 18 do if a[i]< m then m: =a[i]; writeln('минимальный результат: ',m) end.

1024:31=33. Я думаю так

Ответ 17
i-k
1-1
3-2
5-3
7-4
9-4
11-5
13-6
15-6
17-7

Дом+уха=домуха + рога = домухарога- муха = дорога
Буква о = 1, д=5, р= 7 , г=8 , а=4
5+1+7+1+8+4=26
Дорога = 26