Массив R[1]=12, R[2]=34, R[3]=-53, R[4]= -6, R[5]= 4, R[6]=92, R[7]=0, R[8]=8. Определите значение переменной max после выполнения следующего фрагмента программы: max:=r[1]; for i:=1 to 3 do if r[i]>max then max:=r[i]; writeln (max); *