алг
нач
цел i, j, k1, k2, k3, k4, summ = 0
цел 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
если a[i,1] + a[i,2] + a[i,3] + a[i,4] + a[i,5] > summ то
summ := a[i,1] + a[i,2] + a[i,3] + a[i,4] + a[i,5]
все
кц

нц для i от 1 до 8
если a[i,1] + a[i,2] + a[i,3] + a[i,4] + a[i,5] = summ то
вывод "Строка ", i, ": ", a[i,1], " ", a[i,2], " ", a[i,3], " ", a[i,4], " ", a[i,5], нс, нс
все
кц

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


кон