№3. В таблице Ball хранятся баллы, набранные участниками школьного этапа олимпиады по математике (Ball[1] — балл первого ученика, Ball[2] — балл второго ученика и т.д.). Определите, что будет напечатано в результате работы следующей программы: var Ball: array [1..10] of integer; i, m, t: integer; begin Ball[1]:=12; Ball[2]:=25; Ball[3]:=13; Ball[4]:=18; Ball[5]:=35; Ball[6]:=55; Ball[7]:=48; Ball[8]:=33; Ball[9]:=64; Ball[10]:=45; m:=Ball[1]; t:=1; for i:=1 to 10 do if Ball[i]>m then begin m:=Ball[i]; t:=i end; write(t) end.

Переменная m хранит наибольший найденный балл, а t — номер ученика, набравшего этот балл. Цикл заменяет их значения, когда очередной элемент массива больше текущего максимума.

Наибольшее значение массива — 64. Оно находится в элементе Ball[9], поэтому после цикла t = 9.

Ответ: программа напечатает 9.