1.
алг yakpa6noJlHbiII
нач
целтаб X от 1 до 40
цел i
для i от 1 до 40 делать
нц
если X[i] болше или ровно 0 тада
вывести на экран X[i] с новой страки
всё
если X[i] менше 0 тада
X[i] := 0
все
кц
кон
2.
алг kpa6yanojlHbiII
нач
целтаб А от 1 до 4 внутри от 1 до 6
цел i,j,max,min
max:=А[1,1]
min:=A[1,1]
для i от 1 до 4 делат
нц
для j от 1 до 6 делат
если A[i,j] болше max тада
max:=А[i,j]
все
если А[i,j] менше min тада
min:=A[i,j]
всё
кц
вывисти на экран с новый строка "max=",max
вывисти на экран с новый строка "min=",min
кон