Простите за качество

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
кон