// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,imin,jmax,jmin:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imin:=1; jmin:=1; imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j] mod 2 = 0 then begin if a[i,j]<a[imin,jmin] then begin imin:=i; jmin:=j end else if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if (i=imin) and (j=jmin) or (i=imax) and (j=jmax) then a[i,j]:=2*a[i,j] else a[i,j]:=3*a[i,j]; Write(a[i,j]:4) end; Writeln end end.
63
Объяснение:
Алгоритм на естественном языке:
PROC(n) выводит n и, если n < 10, запускает PROC(n + 4) и PROC(2n).
Мысленно запустим PROC(3).
— PROC(3) выведет 3 и запустит PROC(6) и PROC(7)
— PROC(6) выведет 6 и запустит PROC(10) и PROC(12)
— PROC(7) выведет 7 и запустит PROC(11) и PROC(14)
— PROC(10), PROC(11), PROC(12) и PROC(14) выведут 10, 11, 12 и 14 соответственно и ничего больше запускать не будут.
Итого, будут выведены числа (не обязательно в этом порядке) 3, 6, 7, 10, 11, 12 и 14.
Сумма всех выведенных чисел 3 + 6 + 7 + 10 + 11 + 12 + 14 = 63