алг
нач
цел i, j, k1, k2, k3, k4
цел maxx = 0
цел minn = 90
целтаб a[1:8, 1:5]
нц для i от 1 до 8
нц для j от 1 до 5
a[i,j] := irnd(80)+10
кц
кц

нц для i от 1 до 8
нц для j от 1 до 5
вывод "[", a[i,j], "]", " "
кц
вывод нс
кц

нц для i от 1 до 8
нц для j от 1 до 5
если a[i,j] > maxx то
maxx := a[i,j]
все
кц
кц

нц для i от 1 до 8
нц для j от 1 до 5
если a[i,j] < minn то
minn := a[i,j]
все
кц
кц

нц для i от 1 до 8
нц для j от 1 до 5
если a[i,j] = maxx то
k3 := i
k4 := j
все
кц
кц

нц для i от 1 до 8
нц для j от 1 до 5
если a[i,j] = minn то
k1 := i
k2 := j
все
кц
кц

вывод нс, "Минимальный элемент А[", k1, ",", k2, "]=", minn, нс, "Максимальный элемент А[", k3, ",", k4, "]=", maxx, нс, нс

нц для i от 1 до 8
нц для j от 1 до 5

кц
кц

нц для i от 1 до 8
нц для j от 1 до 5
a[i,j] := a[i,j]*2
кц
кц
вывод "Удвоенный массив:", нс
нц для i от 1 до 8
нц для j от 1 до 5
вывод "[", a[i,j], "]", " "
кц
вывод нс
кц


кон